
Dicas 

Novidades 

Fita do Mes: 
SICOM 



JK Poeta 

Quebra-Cabeca: 
Verdadeiro ou Falso? 

Alta Resolucao 




Caracteristicas Teen icas 

• Linguagem BASIC 
» 10 Kbytes de ROM. 

• 16 ou 48 Kbytes de memoria 
RAM. 

• 40 teclas e 160 f unifies. 

• Gravacaode programas em 
fita cassete comum, 

• Input e Output de dados. 

• Video: aparelhos de TV B&P 
ou colorido. 

• Funcoes especiais 
HIGH-SPEED. 

• SomOpcional. 

• Joystick, irnpressora. 

Preco de lancamento: 

Cr$ 198.850,00 (16K) 
CrS 269.850,00 (48 K» 

(Pfego sujeito a alterapao) 
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Editorial 



E extremamente embaragoso come- 
car um editorial com um pedido de descul- 
pas, mas e/e se faz necessario por dois 
motivos. Inicialmente o atraso do numero 
1 em relacao ao prazo previsio por oca- 
s/So do lancamento do numero . 

Uma serie de dificuldades burocrati- 
i:as apan-.'nremems irwfevanfes nos fee 
ram passar por uma siluacao tipica dos 
pesadelos: correr, correr, sem sa/r do Su- 
gar, 

Felizmente ja entramos no ritmo nor- 
mal e a periodtcidade mensal sera manti- 
da, com o maximo de pontualidade. 

Em segundo Sugar, o atraso da fita 
brinde. Algumas dificuldades na producao 
nos lizeram optar por uma maior demora 
em troca de uma melhorqualtdade no pro- 
duto a ser enviado para nossos asstnan- 
tes. 

Alem das desculpas, com este nu- 
mero es tamos atendendo a uma se'rie de 
so/icitacOes dos nossos leitores, a principal 
debs referente ao "volume" da revista, 
cuja tendencia daqui para f rente 6 crescer 
cada vez mals. Comecamos neste nume- 
ro um curso de linguagem de maquma 
que permitira, a partlr do prdximo numero, 
a publicacao de programas especiais nes- 
la linguagem. 

Fmalmente, queremos agradecer a 
confianca que uma multidao de novos as- 
sinantes depositou em nds, permitindo as- 
sim a e/aboracao de uma revisia que dese- 
jamos cada vez melhor e cada vez mais 
util. 
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CARTA DOS 
LEITORES 




Prezados Senhores, 

Achei interessante a id^ia de V.Sas., em lancar uma 
revista voltada exclusivamente para o TK-82. Espero que 
saibam levar a publicagao a um bom caminho e fujam 
de "bater na rrtesma tecla", muito comum em outras re- 
vistas do genera. Boa sorte entaol 

Sobre a assinatura, tenho algumas duvidas. Sou pos- 
suidor de um TK, com expansao para 16K, que me aju- 
da muito no curso que estou terminando de Engenharia 
Eletronica. Nao uso muito seus recursos de software, 
Procuro aprender mais e aplicar o que aprendi nas areas 
de software ba"sico e hardware. Comparando o preco da 
assinatura pretendido por V.Sas., com o prego de outras 
publicacoes, percebe-se boa diferenca. Talvez devido ao 
'brinde'. Nao estou interessado na fita com programas. 
A assinatura sai no mesmo preco? Fica como sugestao o 
brinde opcional. Outra duvida: O mercado de micros es- 
ta em constante mudanca, Hoje ja vem o TK85 para 
substituir o TK82-C. Em breve, virao melhores micros. 
E a revista? Como fica? Acompanha aevolucao, ou fica 
fie I aos antigos possuidores do TK? Talvez as duas 
coisas, mas ate quando? 

Luis Fernando Neves de Pinho 

Prezado Luis, 

Vamos esclarecer suas duvidas: 
t) £ impossfvei comparar o prego da assinatura de 
MiCHOHOBB Y com o de outras publicacoes do genero, 
pois nao existem outras publicacoes assim no Brasil. 
MICROHOBBY e uma revista para usuarios do TK, man- 
tida pelas assinaturas destes mesmos usuarios. 

Voce nao pode comparar seu custo com o de revistas 
que vendem 30%, 40% ou ate 50% de seu espaco para 
anuncios. Se voce comparar entao o grau de utilidade de 
M/CROHOBBY para quern tern um TK, voce veri que 
s6 no numero zero, reduzido e promocionat hi mais 
coisas para o TK do que em todas as outras revistas Jun- 
tas. 



2) brinde 4 um presente nosso e nao altera o preco da 
assinatura. Consequentemente, o aconseihamos a passi- 
to para afgum amigo que ficari muito agradecido. 

3) O TK85 nao veio para substituir o TK82 pois situa-se 
em outra faixa de mercado. Como efes usam a mesma 16- 
gica, seus softwares sao compati'veis, portanto a revista £ 
escrita para os usuarios dos dot's TKs e de todos os even- 
tuais TK que venham a surgir. 

4) Se a revista sentir a necessidade de atender outros mi- 
cros certamente continuari tambim fief aos possuidores 
do TK82 pois foi para etes que eia foi criada. Este £ um 
compromisso que assumimos e vamos manter. Ji recebe- 
mos por exemplo, solicitacoes para abrir um suplemento 
que atende computadores com fogica APPLE. A ideia 
esti sendo estudada, mas fique tranquilo com uma coisa: 
qua/quer outro computador que se/a atendido por 
MICR0H0B8Y seri aigo A MAIS que o usuario do TK 
estari recebendo, sem roubar nenhum espaco a eie dedi- 
cado. 



Prezados Senhores, 

Recebi o numero e fiquei impressionado com o 6ti- 
mo nivel da revista. Ela esta muito bem bolada. Faltava 
algo que unisse todos os possuidores do TK esimilares. 
Voces acertaram na mosca. 

Eu ja possuia contato com programacao pois possuo 
uma calculadora HP-41CV desde o corrleco do ano pas- 
sado. Em outubro me motive! a comprar um micro e 
optei pelo TK, pela simplicidade e preco reduzido. 
Aprender a linguagem BASIC nao foi muito difi'cil (6 
uma questao de tempo). Nao possuo por enquanto ne- 
nhum tipo de acess6rio. Possuo uma serie de programas 
(principalmente jogos) feitos por mim. Muitas modifi- 
cacoes podem ser feitas para meihorar os programas. 
Pretendo remeter-lhes mensalmente um bom programs 
ou uma colaboracao. Inicialmente mando este JOGO 
DA FORCA que ao meu ver f icou muito melhor do que 
muitos (de 2K) que ja" vi Contem com meus sinceros 
votos de felipidade e BOA SORTE. 

Armando de Toledo Filho 

Cam Armando, 

Antes de mais nada, obrigado petos votos de BOA 
SOR TE e pela sua oferta de colaboracSo (veja materia 
"Como colaborar com MICROHOBBY" na pig. 38 ). 
Com relacao ao jogo de forca, ele foi analisado pelo pes- 
soal da redacao e vocS esta" de parabens: o programa e 
dtimo. fnfelizmente nao vamos publici-lo pois quase to- 
das as outras revistas do ramo ja publicaram varios "JO- 
GO DA FORCA", "SENHA" e simitares. Apesar disto, 
seu programa pode ser aproveitado: porque nao Inventa 
ou aperfeicoa mais a/guns jogos e produz uma fita de jo- 
gos para 2K? Voce poderia ati vender esta fita para inte- 
ressados. Para isto abrimos um espaco gratuito de peque- 
nos anuncios (veja pig. 39 ). Desejamos uma boa sorte 
para voce" tambem e continue enviando colaboracoes. 
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ContinuacSo. 



Prezados" senhores, 

Possuo um TK82-C ha pouca tempo. Entre os progra- 
mas que comprei ja prontos, um deles (MONSTRO DAS 
TREVAS) nao carrega e se perde ao chegar no final, 
Gostaria de saber se existe algum "macete" para carregar 
programas como este, que aparentemente estao com de- 
feito. 

Sergio Luis de Oliveira 

Prezado Sergio, 

Quando isto acontecer tente 3 coisas nesta ordem: 

1) Limpe a cabeca de gravacao do seu gravador antes de 
tentar o LOAD, ajustando o controle de volume e tona- 
lidade, ate obter um som o mais estridente possfvel. 
Teste antes com um programs mats curto que entre e 
ouca o som produzido, tentando depots reproduzir a 
mesma altura e timbre no programs que Ihe interessa. 

2) Tente utiiizar outro gravador com os mesmos cuida- 
dos do item f. 

3)Se os itens 1 e 2 nao funcionaram, provavelmente a 
fita esta com defeito. Envie-a para a MICROSOFT, com 
uma carta explicando o probiema e o pessoal mandara 
para voce uma fita novinha. 

Prezados Senhores, 

Muito oportuno o lanpamento de uma revista dedica- 
da ao TK. Ja se tornava cansativo comprar as revistas es- 
pecializadas com "dicas quentes" sobre dezenas de mi- 
crocomputadores, exceto o TK-82. 

Agora que voces se anteciparam nesse negocio, aqui 
vao algumas sugest5es: 

a) Manter a mesma linha de todas as revistas do genera, 
ou seja, divulgar programinhas sem graca. Isso satisfaz a 
maioria. 

b) Promover os programas "quentes" mesmo que isso 
implique em gastar mais papel. 

c) Divulgar, com espi'rito de formacao, conhecimentos 
basicos, tais como os conceitos de "vari^vel" e aritmeti- 
ca com numeros hexadecimais. 

d) Fornecer dicas reatmente quentes de como, por exem- 
plo, movimentar desenhos ou informacoes no video sem 
usar o comando PRINT, mas definindo diversas areas 
dentro do programa BASIC e dando varios POKES nos 
enderegosdo DFILE (16396e 16397). 

Finalizando a presente, gostaria de manifestar o meu 
interesse em colaborar com voces, pois, ha muito desde 
1968, emprego computadores em meus servicos e creio 
que na experiencia obtida tenha muitas id^ias que serao 
uteis para seus leitores. 

Roberto Massaru Watanabe 



Cam Roberto, 

Agradecemos suas sugestoes e seu interesse em cola- 
borar com nossa revista. Esperamos ter, nos proximos 
numeros muitos artigos e programas com sua assinatura 
(veja "Como colaborar com MICROHOBBY", pag.38). 

Com relacao as suas sugestoes, alguns coment4rios: 
A) Vamos realmente pubticar programinhas "Uceis" 
{que voci chamou de "sem graca") pois uma consideri- 
vei fracao de nossos assinantes 4 constituida de criancas 
e principiantes. Muitos nao tern expansao de memoria, 
mas tim o direito de se diver tir aprendendo. Num curso 
para criancas de 8 a fOanos, realizado no NUCLEO DE 
ORIENTACAO DE ESTUDOS, o programa BOUCHE, 
publicado no numero 0, provocou muito entusiasmo. 
As criancas descobriram sozinhas que alterando o 
"LOOP" 



55 FOR M = 1 TO 



para: 



1 55 FOR M = 1 TO 20 
passavam a ter direito a mais botas ! 



Tambem sozinhas descobriram que eliminando as ii- 
nhas: 



195UNPLOT A, B 
199UNPLOTA, B 



o programa passava a "desenhar foguetes"\ Foi muito 
gratificante observar o resuliado de um programinha 
"facil" publicado na nossa revista. 

8} Vamos gastar muito, mas muito papel justamente pa- 
ra publicar os programas "quentes". Se o leitor passar 
todos os programas de 2 numeros de nossa revista para 
fitas, tera uma quantidade de material cujo preco, no 
mercado, ultrapassa de muito o preco de uma assinatura 
anuai ( 12 numeros). 

C) A filosofia basica que norteia nossa publicacao e 
muito mais "didatica" do que "jornaii'stica". £ um dos 
nossos principals objetivos imprimir a esta publicacao o 
"espi'rito de formacao" que voce propoe em sua carta. 
Como voce pode no tar, a partir deste numero, al£m de 
continuarmos nosso curso de BASIC-TK para principian- 
tes, estamos iniciando um curso de ASSEMBL Y para o 
TK. 

D) As dicas "quentes" ja estao comecando a surgir. Por 
coincidencia, neste numero temos uma dica que escla- 
rece justamente um dos usos da variavei DFILE que 
voce cita em sua carta. 

Muito mais dicas serao fornecidas nos prdximos nu- 
meros mostrando aos leitores as inumeras e insuspeitas 
possibilidades desta pequena maravilha que 4 o seu TK. 
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A GRAVACAO 

DOS 

PROGRAMAS 




Apos muitos anos criticando os aparelhos de alta- 
fidelidade em algumas revistas brasileiras e enfrentando 
preconceitos, "rumores" e lendas fantasticas sobre Som 
e o "software" que o acompanha, chego a este novo 
c3mpo dos computadores pessoais. 

Leigo na materia, alfabetizando-meem Basic, levando 
"surras" homericas do meu TK, tambem comedo a en- 
contrar pessoas interessadi'ssimas; atendimento cuidado- 
so e gentil por parte de vendedores da lojas, represen- 
tantes da Microdigital; de firmas particulares que comer- 
ciam micros ou programas, etc, a ponto de me per- 
guntar: 

— Ue?! que esta acontecendo? 

De outro lado, tambenn nesta area comeco a encon- 
trar os rumores e lendas fantasticas; exemplo . . . "Urn 
gravador cassete, quanto mais barato melhor para gra- 
var seu programa". 

Dai' a me atrever — eu, novato em micro — a trazer 
alguns princi'pios basicos aprendidos durante os anos em 
eletronica de Som, para esta area 



O gravador 

Nao e verdade que o gravador "mais barato" seja o 
melhor. E nem poderia ser. "guincho" gravado no cas- 
sete — as informacoes do micro - e rico em sons me- 
dio-agudos Os prbprtos fabricantes insistem que, em 
tendo o aparelho um controle de tonalidade, seja coio- 
cado na posicao de mais agudo. E e aqui que os micros 
saem-se mal: gravadores de baixa qualidade tern sua res- 
posta de agudos muito pobres. mesmo se da com bons 
gravadores, usados (geralmente monoaurais) ha longo 
tempo, que o usuario consegue comprar por bom preco. 
Estes gravadores ja terao rodado muitos quilometrosde 
f ita, desgastando os cabecotes de gravacao/reproducao, 
o que inf luencia precisamente mais na gama dos rnedio- 
agudos. 

Por outro lado, gravadores "mais baratos" possuem 



limitacoes mecanicas que logo conduzem a lata de lixo, 
Se as flutuacoes desses sistemas mais pobres tornam tais 
gravadores imprestaveis para a reprodugao de musica, o 
mesmo nao e tao grave quanto aos sinais digitals. Uma 
certa flutuacao (wow e flutter) ainda e suportada galhar- 
damente nos momentos de LOAD e SAVE. Porem as 
fungoes de rebobinamento rapido (para a esquerda ou 
direita), alern da possi'vel interrupgao do movimento da 
f ita com cassetes semi-defeituosas, tornam o aparelho de 
baixa confiabilidade, isto e, dor de cabeca para seu 
usuario. 

Ainda mais, os aparelhos de baixo preco no geral pos- 
suem marcas estranhi'ssimas, como "Claudicorder", 
"Somissuko" ou "Mankassom", fabricados na Konxin- 
china, Taboao da Serra ou Tras-dos-Montes. Quando 
chega o momento de conserta-lo e substituir um compo- 
nente defeituoso, o tecnico sera obrigado a "improvi- 
sar". Resumo: mais dinheiro jogado fora. 

Por f im, aparelhos baratos nao possuem contador nu- 
merico do andamento da f ita. Para quern nao sabe, tais 
contadores sao de baixa precisao e, geralmente, contam 
as voltas da bobina, dentro do cassete. Por isso raras ve- 
zes a leitura e valida entre aparelhos diferentes De qual- 
quer forma, quando gravemos diversos programas em 
uma mesma fita cassete, torna-se quase impossi'vel loca- 
lizar o programa especi'fico sem o auxflio dos numero- 
zinhos 



Sugestoes: 

1} Compre um gravador de marca conhecida e respeita- 
da, ainda que nao esteja em condicoes 100%. Uma vez 
que o aparelho tenha representante no pais — ou seja 
aqui fabricado por industria de respeito, que mantenha 
eficiente servico de manutencao — tudo bem. 
2) Mande examina-lo antes de comecar a emprega-lo. 
mi'nimo que se pede e uma boa limpeza e lubrifica- 
cao, com desmagnetizagao dos cabegotes e guias me- 
talicas, assim como substituicao dos potenciometros 
(controles de volumes, de torn) defeituosos ou ruido- 
sos. Alias, manda o mini mo de cuidado que ao menos 
uma vez por mes os cabepotes sejam limpos com alcool 
metflico e desmagnetizados. Se os cabegotes apresen- 
tarem desgastes, mande substitui'-los. Nao custam assim 
tao caros e prestarao servigo por longo tempo, se bem 
cuidados. Lembre-se: cabegotes desgastados gravam e 
reproduzem muito mal os sons agudos. 
3} Prefira uma boa fonte de alimentagao (ou conversor 
AC/DC, ou Adaptador); o prego das baterias nao anda 
brincadeira e, a menos que voce empregue baterias al- 
calinas ou de mercurio, vera o gravador "arrastando 
a fita com a lingua de fora", apds pouco tempo de uso. 
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A GRAVACAODOS 
PROGRAMAS 

Continuacao... 



A f ita cassete 

Nao vamos citar nomes para evitar polemicas desne- 
cessarias. Por^m algumas fitas nacionais - mesmo de 
certo renome e preco - desprendem o material magne- 
tizave! que passa a sujar os cabecotes. A reproducao que 
mais sofre sao os medio-agudos, corn frequencia insu- 
portavel. Cabe aqui a consideracao feita em reproducao 
de alta-fidelidade: "Se vale a pena ser gravado, vale a 
pena ser BEM gravado". 

Empregue fitas de renome, de baixa duragao (nunca 
as de 90 ou 120 minutos) e preserve-as com carinho. Na- 
da de proximidades de fontes magnetizadoras (transfor- 
madores, cinescopio de TV, etc); no mi'nimo a 30 cm de 
distsncia, o que assegurara que os sinais gravados nao se 
alterarao. O calor, a umidade e a poeira (porta-luvas de 
carro, por exemplo) sao os proximos inimigos a serem 
evitados Nao se esqueca de que o proprio micro costu- 
ma aquecer; nada de espantar, e claro, porem nao co- 
mece a testar o ponto de fusao do plastico empregado 
na cassete! Da mesma maneira, nao toque com os de- 
dos na fita; voce nao sabe como nossa pele e gordurosa! 
Se houver algum acidente que o obrigue a desmontar o 
cassete, ou emendar a fita, manuseie-a com luvas de al- 
godao. A fita e os cabecotes agradecerao o cuidado. 

N i'vel de gravacao 

Os indicadores de nfvel de gravacao — ou VU-meter — 
sao urn auxiliar precario no julgamento do ni'vel de gra- 
vacao. A ultima palavra sera dada pelo seu micro e a 
imagem reproduzida no monitor ou TV falarao mais 
"alto", . . A limitacao dos VU-meter explica-se facil- 
mente: sao um tanto "totalizadores", ignorando se o 
sinal mais intenso esta na gama dos rnedios, agudos ou 
graves. Isto e. . . isso na melhor das hipoteses, quando 
foram calibrados na fabrica Comparando equipamento 
similar, e, por vezes, ate modelos identicos, nacionais ou 
importados, ja se pode perceber uma total discrepancia 
na indicacao dos diferentes VU-meters. £ claro que nao 
deveria acontecer, mas acontece . . . 

Pelo mesmo motivo, as gravacoes em "Automatico" 
nem sempre funcionam, Dependendo do circuito ele- 
tronico empregado num especifico gravador, da fita em- 
pregada, e finalmente das neuroses do seu micro, o 
LOAD podera parecer a contento numa situacao e inu- 
til em outra mais pratico e digitar programas curtos 
e testar os melhores ni'veis de gravacao (SAVE) e repro- 
ducao (LOAD) 

Conectores 

Ja presenciamos um profissional rosnar contra o cabo 
conector entre o computador e o gravador cassete: 
— Esta com mau contato! 



Se ha tal desconfianca, leve o cabo a qualquer tecnico 
de eletronica para ser consertado; nao deixe as coisas 
assim! Ou compre um par de cabos extras, para nao ficar 
parado a espera do conserto, De todos os soft, os cabos 
sao de longe os mais baratos. 

Em alta-fidelidade, em situacoes quando trabalhamos 
com sinais minusculos, empregamos atecontatos banha- 
dos a ouro para os conectores. Isto nao se aplica aos mi- 
cros. No entanto a boa qualidade dos contatos e impres- 
cindi'vel para se evitar oxidacao, principalmente para 
aqueles que vivem a beira-mar ou em locaisde alta umi- 
dade relativa. Gaste um pouco mais num bom cabo com 
conectores bem acabados e evitara as incertezas de um 
mau contato intermitente. 

TV a Cores 

"0 micro estraga o TV a cores" — e outra fascia que 
ja ouvi algumas vezes, em locais diferentes. 

sintonizador de seu TV nao tern a menor ideia se 
esta recebendo um sinal direto do transmissor de TV do 
canal 2, ou do gerador de seu vi'deo-cassete, ou de seu 
micro (supondo que essas fontes estejam funcionando 
corretamente, e claro). O que salta aos olhos - ou aos 
bolsos, melhor dito — e que, por menos tempo que voce 
empregue o computador, estara desgastando o tubo de 
imagem do televisor. Ora, o componente mais caro e 
precisamente o tubo de imagens. Em se tratando de um 
modelo a cores, custara de tres a quatro vezes o preco 
de um tubo branco e preto de tamanho similar. A mao- 
de-obra para a troca e proporcionalmente mais cara tam- 
bem. Alem disso, imagine se, por azar, coincide de o 
aparelho mostrar defeito na bora da telenovela precisa- 
mente logo depois que voce acabou de emprega-lo com 
o micro ? 

— E as Criancas? 

— Quais criancas? — perguntara o leitor, ja alarmado, 
Pois e. . . as criancas da casa — f ilhos, irmaos menores, 
priminhos de fins de semana — simplesmente se encan- 
tam com o micro, E a ordem: "Nao ponha a mao ail" 
. . . alem de antipatica, seria ineficiente. Al ids, mais do 
que antipatica, estan'amos sendo anti-pedagogicos. De- 
pendendo da idade da crianca, podemos ensinar desde o 
manuseio de simples jogos ate" princfpios de manipuia- 
cao do teclado. E simplesmente inacreditavel a veloci- 
dade de aprendizado de criancas de seis, sete ou oito 
anos. Tambem e imperioso que nos convencarnos de que 
o micro veio para ficar tambem na vida das criancas. Se 
gastarmos duas horas em cima de um programa dedicado 
a nossos filhos ou irmaos menores, propondo-lhes 
problemas de antmetica, hist6ria ou conhecimentos ge- 
rais, poderemos estar empregando as melhores duas ho- 
ras de nossa vida. 

Mas isso ja e outra conversa que pouco tern a ver com 
o Som para os Micros. Ficam ai' as sugestoes que, espero, 
sejam de utilidades para voce. 
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IF.. .THEN.. .ELSE 
para o TK 

Igor Sartoni 

Quantas vezes, voce viu um programa Interessante e 
nao pode roda-lo em seu computador, por um problema 
ou outro? Quantas vezes, isso nao fol possi'vel, porque, 
apesar do programa estar escrtto em BASIC, ele possui 
as instrucoes que nao podiam ser usadas no TK? 

Isso ocorre, porque, embora o BASIC tenha se torna- 
do praticamente um padrao como linguagem decompu 
tacao em microcomputadores pessoais, podemos encon- 
trar certas peculiaridades inerentes a cada modelo, o que 
torna, muitas vezes, dif fcil transpor um programa de um 
computador para outro. 

Certas instrucoes aparecem com outra sintaxe e o que 
4 aceito por um computador, nao e aceito por outro. 
Outras surgem em um e nao no outro, como e o nosso 
caso: o TK-82 possui a instrucao IF THEN, mas nao 
possui seu complemento, a condicional ELSE. 

IF . . . THEN . . . ELSE 

A instrucao IF (condicao) THEN (funpao ou opera- 
cao) e" comum a todos os computadores que usam 
BASIC. No entanto, apenas alguns possuem a condicio- 
nal ELSE {funcao ou operacao). 

Esta condicao diz que, se a condicao que segue a con- 
dicional THEN nao for satisfeita, uma outra operacao 
ou funcao deve ser executada. Um exemplo pode deixar 
mais claro. Observe a linha de programa a seguir: 



100 IF X = THEN LET Y = ELSE 

X 



PRINT "X = 



Nesta linha de programa, se (IF) a primeira condicao 
for satisfeita (X = 0), entao (THEN) realizaremos a ope- 
racao que Ihe segue (LET Y = 0), senao (ELSE), realiza- 
remos a outra operacao (PRINT "X= "; X), 

Computadores como o TK-82 ou o TK-85 nao pos- 
suem esta condicional, Como inclui'-la no seu compu- 
tador? Examinemos o que ela faz. Pela descrigao que fi- 
zemos anteriormente, vimos que ela estabelece uma con- 
dicao oposta aquela determinada pela condicional IF. 
A primeira ideia que nos vem a mente e transformar a 
condicional ELSE numa linha de programa que expres- 
se uma condicao oposta a determinada pela condicional 
IF. No exemplo que mostramos, a linha de programa 
seria transformada em: 



IF X= THEN LET Y= 

IF X <> THEN PRINT "X="; X 
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100 

110 



A solucao foi facilmente estabelecida, porque a con- 
dicao estabeiecida na condicional IF era a igualdade, 
cujo oposto 6 a desigualdade (OLE se a condicao fosse 
outra, como, par exemplo, maior ou igual a (>=)? Neste 
caso temos duas opcoes. A primeira delas e usar a fun- 
cao logica NOT. Esta funcao age como um inversor, tor- 
nando a logica da condicao invertida: se antes era verda- 
deira, ela torna-se falsa e vice-versa. Deste modo a linha: 

100 IF X > = THEN LET Y = ELSE 
PRINT X=";X 

Poderia ser traduzida como: 

100 IF X > = THEN LET Y = 

110 IF NOT X>= 0THEN PRINT "X="; X 

A segunda opcao, 6 usar o sinal cotnplementar do si- 
nal da condicao. Para entendermos o que isso significa, 
vamos escolher uma sequencia de numeros naturais em 
ordem crescente, como, por exemplo: 

01 23456789 

Poderemos separar uma parte desta sequencia, apli- 
cando uma condicao a um dos seus elementos. Por 
exemplo, se desejarmos uma sequencia formada por: 

6 7 8 9 

Poderemos dizer que tomamos todos os numeros 
maiores ou iguais a seis, ou seja, aplicamos a condicao 
"maior ou igual a" e a condicao que fornece a parte des- 
prezada da sequencia. No nosso exemplo, sao os nume- 
ros menores que 6. Assim, a condicao "menor que" e a 
complementar a "maior ou igual a". 

A tabela a segutr fornece todas as condigoescom seu 
respectivo sfmbolo e complemento: 



Condicao 


Si'mbolo 


Complemento 


Si'mbolo 


maior que 


> 


menor ou igual a 


< = 


menor que 


< 


maior ou igual a 


> = 


maior ou igual a 


>- 


menor que 


< 


menor ou igual a 


< = 


maior que 


> 


igual a 


= 


diferente de 


<> 


diferente de 


<> 


igual a 


= 



Assim, a linha do exemplo f icaria: 



IF... THEN... ELSE 
para o TK 

Continuagao... 



100 IF X > = THEN LET Y = 
110 IF X<0 THEN PRINT "X=";X 

Estas duas solugoes resolveram o problems. Entretan- 
lo, existem mais duas solugoes. Estas solugoes, embora 
necessitem um numero de linhas maior que as anterio- 
res, evitam o aparecimento de duas condicionais em se- 
guida, usando uma caracten'stica da propria instrugao 
IF/THEN. Nesta instrugao, quando a condigao nao e sa- 
tisfeita, o programa executa a linha que vem imediata- 
mente a seguir. E se colocarmos nesta linha a fungao ou 
operacao designada pela condlcional ELSE? Isto nao se- 
ria uma boa solugao porque, se f izermos apenas esta mo 
dificacao, a fungao que segue o ELSE ser3 executada em 
qualquer condigao, mas o que desejamos e que ela seja 
executada se, e somente se, a condigao estabelecida pela 
condicional IF nao for satisfeita. Isto pode ser evitado se 
"saltarmos" esta condicao, por meio de uma instrugao 
GOTO. Assim, nosso exempio ficar^: 

100 IF X = THEN GOTO 130 
110 PRINT "X= ";X 
120 GOTO 140 

130 LET Y = 

140 ... (sequencia do programa) 

A linha 120 e necessaria pelo mesmo motivo que usa- 
mos no sal to da linha 100: desejamos que a fungao ou 
operacao designada pela instrucao IF original, seja exe- 
cutada apenas se a condicao for satisfeita. Se ela for 
omitida isto nao ocorre. 

A outra solugao e semelhante a esta, s6 que usa uma 
logica invertida para fazer a comparagao, ou seja, & feita 
primeiro a comparagao para se realizar a funcao designa- 
da pela condicional ELSE. Nosso exempio ficaria assim: 



100 IFXO THEN GOTO 130 
110 LET Y= 

1 20 GOTO 1 40 
130 PRINT "X= ";X 

140 ... (sequencia de programa) 

Outras Solucoes 

As solugoes apresentadas neste artigo sao de carater 
generico e devem funcionar em quaisquer circunstancias, 
respeitadas as limitacoes de seu micro. Todavia, se voce 
dispuser do diagrama em blocos do programa original 
que voce deseja transpor para o TK, voce pode, com um 
pouco de habilidade, modificar sua logica de modo a evi- 
tar o uso da instrugao IF . . . THEN . . . ELSE . . . 



A desvantagem de uma solucao obtida desta forma e 
que ela esta vinculada a um caso particular e so pode ser 
obtida se voce tiver em maos o diagrama em blocos, ou 
se voce conhecer suficientemente a linguagem BASIC, a 
ponto de conseguir fazer esta analise sem auxi'lio do dia- 
grama de blocos. 

As outras solucoes, por outro lado, s6 dependem de 
voce locaiizar onde aparece a condicional ELSE e aplicar 
uma das solucoes propostas. So surgirao problemas, se 
varios IF ... THEN .. . ELSE . . . estiverem presentes 
na mesma linha. Mas isso sera assunto de um proximo 
artigo. 

Programa Exempio 

Nao convem ficar so na teoria, tente verificar o que 
voce aprendeu com o auxi'lio deste exempio. Suponha- 
que voce tern diante de si o seguinte programa, feito pa- 
ra um computador, cuja unica diferenca entre ele e o 
seu, seja a presenca da instrucao IF/THEN/ELSE: 

10 REM EQUACAO DE SEGUNDO GRAU 

20 PRINT "A=";A 

30 INPUT A 

40 PRINT "B="; 

50 INPUT B 

60 PRINT "C="; 

70 INPUT C 

80 LETDELTA= "B**2-4*A*C 

90 REM A PROXIMA INSTRUCAO CON- 
TEM A CONDICIONAL ELSE 

100 IF DELTA >= THEN LET D=SQR 
(DELTA) ELSE STOP 

110 LET X1 = (-1*B+D)/(2*A} 
120 LET X2= (-1 * B-D]/(2*A) 
130 PRINT "AS RAIZES DA EQUAgAO 



SAO: 



140 PRINT "X1 



XI, "X2 = 



X2 



Certamente voce deve conhecer outros algorftmos pa- 
ra resolver a equacao de segundo grau por computador 
melhores do que este, mas o programa que acabamos de 
mostrar, serve apenas para ilustrar o que dissemos sobre 
a instrucao IF THEN . . . ELSE . . . 

Solucao 

Mostraremos apenas uma das solugoes. As outras fl- 
eam por sua conta. A linha que voce vai ter de modifi- 
car e a linha 100: 

100 IF DELTA >= THEN LET D=SQR 
(DELTA) ELSE STOP 

Vamos dividi'-la em duas: uma, que contem apenas da 
condicional IF eda funcao que segue ao THEN: 



100 IF DELTA >= THE LET D = SQR 



(DELTA) 
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IF... THEN... ELSE 
para o TK 

Continuapao... 

Outra, formada por uma condicional que vai verif icar 
uma condicao oposta a da condicional IF da nova linha 
100. Temos duas opcoes: a funcao NOT e a condicao 
complementar. Usaremos a segunda opcao. A condicao 
complementar de "maior ou igual a", de acordo com a 
tabela, e "menor que". Assim, devemos acrescentsr a 
seguinte linha: 

1 05 I F DE LTA < THEN STOP 

Rode o programa em seu computador, testando-o 
com varios valores de A, B e C. Verifique tambem, as 
outras solucoes, vendo inclusive, se nao existe uma outra 
maneira de se elaborar o programa sem recorrer a instru- 



cao ELSE. diagrama de blocos pode ser facilmente le- 
vantado a partir da iistagem, visto que e urn programa 
bastante simples. 

Conclusao 

Com o que voce aprendeu, tente verificar se alguns 
dos programas publicados em outras revistas para outros 
computadores podem, com auxi'lio destes "macetes", 
ser rodados no seu TK. Se surgirem dificuldades em re- 
lacao a estas ou outras instrucoes, escreva-nos contando 
exatamente o que Ihe aconteceu, citando o computador 
para o qual foi destinado o programa, a instrugao que 
Ihe causou problemas, e uma copia da Iistagem do pro- 
grama que voce tentou "traduzir" para seu computador. 
Este material servira" como ponto de partida para futuros 
artigos e, desde ja, Ihe agradecemos por qualquer cola- 
boracao prestada. 



DESGRILANDO 

"FLAGS" 



Flavio Rossini 



Temos recebido cartas de muitos ieitores pedindo su- 
gestoes de como conseguir detectar erros em programas 
muito complexos e cheios de desvios, onde fica diffcil 
seguir passo a passo o caminho feito pelo programa. 
Podemos responder estas perguntas com urn exemplo 
bastante elucidativo: 

imagine uma linha de trens bem intrincada com muitos 
desvios. 



L 





Suponha que um trem ira passar por uma dada regiao 
e voce gostaria de saber qual o caminho percorrido pelo 
tretn. Mas, por algum motivo, voce nao podera estar la 
para ver o trem passar. Imagine entao que para cada des- 
vio, haja um mecanismo que levanta uma bandeira se o 
trem passar por la. Assim, se inicialmente todas as ban- 
deiras estiverem abaixadas, basta verificar QUAIS estao 
levantadas apos o trem passar para saber o caminho per- 
corrido pelo programa. Observe o diagrama de blocos ge- 
nericos onde temos 5 desvios. 




DESGRILANDO 
"FLAGS" 

Continuacao... 



No bloco de niciacao (INI), basta acrescentar 
FLAGS abaixadas, o que pode ser teito usando a con- 
vencao de (zero) para FLAG abaixada e 1 (um) para 
levantada; desse modo, no bloco INI basta colocar; 



DIM F (10) 
FOR I = 1TO 10 
LET F(l) = 
NEXT I 



Ou seja, 10 FLAGS, duas para cada desvio. 

Feito isso, basta colocar no ini'cio de cada bloco de 
safda dos desvios uma instrucao para "levantar" a ban- 
deira: 



FITA DO MES 
SICOM 



O programa SICOM-16K e produzido pela 
MICROSOFT e pode ser rodado em qualquer compu- 
tador com BASIC - TK dotado de 16K de RAM. 

Quern tiver um TK82 com expansao 64K ou um 
TK85 de 48K, deve tomar cuidado: como o programa 
foi concebido para 16K e um excesso de rnemoria dispo- 
rt ivel, cria um "grilo": o cornputador nao aceita dados 
novos. A solucao, enquanto a MICROSOFT nao lancar 
um SICOM especial para estes casos, e enganar o corn- 
putador. Para isto basta aiterar o valor da variavel do sis- 
tema RTP (RAM TOP) fazendo: 



POKE 16389, 192 
NEW 



[NEW LINE! 
(NEW LINE) 



Ap6s este procedimento o cornputador "pensa" que 
tern apenas 32K de RAM e, ao ser carregado com o 
SICOM, passa a operar tranquilamente. 

SICOM e um programa versati I que pode ser visual i- 
zado como um fichario. Cada ficha ja tern previamente 
definidos os seguintes campos: 



ini'cio do bloco 1 «♦ LETF(1)=1 
ini'cio do bloco 2 ■* LET F (2) = 1 



ini'cio do bloco 9 => LET F (9) = 1 
ini'cio do bloco 10=> LET F (10) = 1 

Apos executar o programa, basta verificar o estado 
dos FLAGS: 

FOR I = TO 9 

SCROLL 

PRINT "FLAG" ; I ; "feS0 " ;F (I) 

NEXT I 

Isto devera ajuda-lo a detectar alguns erros dificeis 
de se encontrar nos seus programas "intrincados". 

... In another world we could stand on top of the 
mountain with our flag unforled . . . 

(Paul McCartney, 1982) 



NOME 

ENDEREgO 

CODIGOSDE INTERESSE 
TEXTOADICIONAL 



64 bytes no maximo 
64 bytes no maximo 
64 bytes no maximo 
64 bytes no maximo 



(cada byte = 1 caractere incluindo espacos vazios) 

A quantidade de fichas armazenaveis e em funcao do 
n jmero de bytes consumidos em cada uma (lembrando 
ainda que cada ficha consome 5 bytes adicionais para se- 
parar os campos). 

Vamos verificar entao quantos bytes podem consumir 
uma ficha para uma aplicagao ti'pica, por exemplo, ca- 
dastre de clientes. 

Imcialmente carregamos o SICOM no cornputador e 
digitamos 

GOTO 1 

Nunca devemos digitar RUN, pois ha uma variavel 
que e apagada da mem6ria tornando impossi'vel a ope- 
racao do programa. Neste momento, aparecera na tela 
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A FITA DO MES 
SICOM 



Cantinuacao... 

o. "menu" principal do programa (fig 



1 ). F_ aconselha- 
vel tirar a fita do gravador e armazena-la em lugar segu- 
ro, ao abrigo de campos magneticos, etiquetando-a 
como 

"f ita mestre av6" 



©=INSIRP 

i=flLTERR 
2=CfiNCELR 



aHFRISI! 



6=PRQX. Jr T*RG 

?=prox. rren 
j^^roRiiHTo-. f 

S=E5TRTX5T . 



Figura 1 
Convem agora fazer uma copia que denomlnaremos: 

"fita mestre mae" 

Digitamos 5 e o computador pergunta que nome que- 
remos dar ao fichario (fig. 2), mostrando em video re- 
verso, qual item do menu esta sendo ativado (no caso 
o5l. 

Vamos digitar MICROHOBBY (NEW LINE). A seguir 
data e hora. Digitamos 



20/06/83 



08:30 



e = INs!PR y-&USCR 6--PROX-. P8G 

1=RLTERk 4=InPRIHE 7-PROX.ITEH 
2=CRMCELR g=SRUE e = FOftHflfT€? : F 

y=ESTfiTI5T. 



aaaa 

"3" 



L 



Figura 2 



computador manda agora a mensagem: 
ENTRE NLSE FITA PRONTA 

Colocamos entao, o gravador na posicao gravar (REC) 
e com a fita virgem ja correndo, apertamosNEW LINE. 
Os riscos caracterfsticos do SAVE aparecerao na tela da 
TV. Apos 1,5 minutos a fita maeestarei pronta Convem 
guard^-la em lugar seguro e comecar a operar as f ichas. 

Vamos agora introduzir algumas fichas de assinantes 
da revista no computador. 

Digitando 9 temos o numero de fichas de bytes livres 
(fig. 3): 

FICHAS0 BYTES LIVRES = 12495 



i=RLTERfi 
S = CRt4CEL.R 



3=BU5CR 
4 = If!RRIME 



F I C Hft-5 = BYT £ i 



5-PRQX. PRO 
7=PROX. 3TEH 
8=FORHRTQ : F 
9-^E5TRTIST. 
L Z\tH-^zz = 124- 95 



Digitando 8, podemos escolher 
'display" na tela da TV (fig. 4). 



Figura 3 



o formato do 



S=INSIRR 

l=ftLTER3 
2=CflNCELR 



3 =E9SCfl S =PROX - PAG 

4- = TMPR I!1E y =f>ROX . XTFH 
5=£RU£ §=FORKRTO : f= 

9=ESTRT 1ST - 



L. =EMBER , : 
T =1 *JT 



Figura 4 

F = COMPLETO (mostra todos os campos) 
L = ETIQUETA (mostra apenas NOME e 
ENDERECO) 

Tanto o formato F quanto o L mostram apenas uma 
ficha de cada vez na tela. Para exemplificar, vamos digi- 
tar duas fichas (nos formatos F e L, uma virgula no 
meio do campo, produz a impressao do que a segue na 
linha seguinte). Vamos escolher o formato F e digitar 
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A FITA DO MES 
SICOM 



Continua£3o... 

. A seguir, vamos introduzir as dados da primeira ficha 

(fig. 5). ' 



i^INSIRR 3=BLf5Cfi 5=PROX, PRG 

l=Ri_TERR 4 = J.liPRlHE 7=PROX . 3TTEH 
S=CRNCEL.R 5=SSWE S=FQRtiRTQ:F 

9=ESTRTIST. 



flhfTONIO FERREIftfl 



ENTfit ENSSW 



'R.liftRGHRIM 47j89S75 BOTUCflTU C 



Figura 5 

Como estamos no formato F a ficha aparece compteta 
com nome e endereco do assinante, data de vencimento 
da assinatura e telefone (fig. 6). Note tambem o efeito 



a=IN5IRR 3=SU3CR 6=PROX.Pfte 
IsfiLTERR 4 = IMPRIME 7=PROX , ITEM 
a=CfiNCELfl 5=Sa'JE 8=FORHRTO:F 

3=ESTRTIST. 



RNTONIO FERREIRfl 
R.MRRGRRIDR 4-7, 
09S75 BOTUCHTU CE 
HRI084 
54.3.S766 



Figura 6 

da virgula no campo do endereco. Vamos agora introdu- 
zir uma segunda ficha (fig. 7). Digitando agora 9, temos 
ideia de quantas fichas estao no arquivo e quantos bytes 
livresainda restam: 



FICHAS = 2 



BYTES L1VRES= 12347 



9=IN5IRR 3=BUSCR 6=PROX . PRG 

X=Rl_TERR 4 = Ii1PRIHE 7=PROX.ITEM 
£=CRNCELR 5=SRUE 8=FGRHRTG:F 

■9 -EST RT 1ST, 



JOSE" SDRUUS 

RV.DOS C0RIJO5 675 RP^ij 

90001 INDRIRTUBR GO 

■JUN64- 

78. sees 



Figura 7 

Um rapido calculo, permite verificar que neste n'tmo 

podemos armazenar ainda umas 170 fichas. Como ca- 

dastro, isto ja e urn numero consideravel, especialmente 

levando-se em conta a fungao de busca do programs. 

No formato L as mesmas fichas teriam aspecto da 
fig. 8. 



JOSE" 5DRUU5 

RV.DOS CORVOS S75 RP.71 

9S001 INDRIhTUBh GO 



Figura 8 

Ja no formato A, I ou T a tela mostra uma ficha por 

linha: na primeira metade da linha, os primeiros 16 

bytes do nome e na segunda- metade, os primeiros 16 

bytes do campo selecionado: 

A = endereco 

I = codigo de interesse 

T = texto adicional 

A fig. 9 mostra o display nos 3 casos. 

Qualquer erro na insercao de uma ficha, pode ser cor- 
rigido pelas funcoes: 

1 = ALTERA 
2= CANCELA 

Para procurar uma ficha basta digitar 3. Aparecera 
um menu secundario, solicitando o campo a ser pesqui- 
sado: 



N = NOME 
T = TEXTO 



A= ENDER. 
I = I NTS 



Digitando a letra correspondente, o programa pede 
para que voce entre com os detalhes do campo em ques- 
tao. Os campos N, A e T comparam o que voce digitou 
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A FITA DO MES 
SICOM 



Continuagao. 



RNTONIO FERREIRR S.MRRGRRIDfl 47, 
•JOSE 1 SE>RUUS RU . DOS CORUOS & 



RNTOMID FHRREIRB HSIOS4 
JOSE" SDRUUS «JUttS<t 



HNTONIO FERREIRB 
JOSE 1 SDRUUS 



S4-3.S-76S 

7& = SSSS 



Figura 9 

como detalhe "AN", serao selecionadas todas as fichas 
cujo campo N comece por AN. 

Se voce esta no formato F ou L aparecera uma ficha 
por vez. Para ver a seguinte, basta digitar 



6= PROXIMAPAGINA 



No formato A, I ou T voce vera o resumo de ate 1 2 fi- 
chas. Digitando 6, voce vera" outra lista, digitando 7, vo- 
ce produzira um efeito analogo ao do SCROLL. 

A qualquer momento, voce pode tirar uma copia da 
tela, na impressora, usando a funcao 4, 

A busca no campo I e a mais sof isticada. Ex. : ao pedir 
detalhes, o computador compara todos oscaracteres di- 
gitados, com todos os caracteres do campo I, indepen- 
dentemente de sua ordem. Todas as fichas que contem 
os caracteres indicados na busca, sao seiecionadas. Note, 
que isto, permite classificar cada ficha em ate" 64 cate- 
gories diferentes. 

Mas nao e s6 em cadastro de nomes que o SICOM re- 
sua utilidade; ele pode ser usado em qualquer tipo 



I W 
I vela 
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de arquivo, como por exemplo, bibliografia, agenda te- 
lefonica, etc. Para informacoes esquematicas ate umas 
500 fichas podem ser gerenctadas pelo SICOM, usando 
seu sistema de BUSCA 

Para outras finalidades, e conveniente mexer um 
pouco no programa. ti'tulo doscampos, por exemplo, 
pode ser alterado mexendo-se nas linhas 505, 515, 
525, 535, 606 e 1315. 

Por exemplo, para preparer fichas bibliogrdficas, estas 
linhas poderianrt ser mudadas para indicado na figura 
10. 



505 

515 
52© 
525 
538 
5=35 



let p*= ; 'e?0£ngaM3" 

GOSUB REi 

LET PS = "ei «S*»B HBC 

GCsSUB Rt 

LET Pi= 0H3SE 

GOSUB tt£ 

L.tT Ps = "32gEES 




eaef^RiwT 



KO-5- T.=sffe^T= 



;l:tBtmi]ii 



i=OERfi -H = COO IGO T = i 



Figura 10 

Convem alterar apenas os nomes dos campos sem alte- 
rar as letras de enderecamento para nao ter que modifi- 
car muito profundamente o programa. 

Uma vez atualizado o arquivo, ele deve ser gravado 
com a data e a hora (funcao 5) em uma fita virgem. A 
cada atualizacao programa deve ser transferido para fi- 
ta mas sem apagar o registro anterior, Desta forma qual- 
quer "grilo" com o ultimo programa implica na perda 
apenas das ultimas atualizacoes. 

Como este programa ja esta no mercado ha um certo 
tempo, com certeza algum leitor ja deve ter descoberto 
alguma utilizacao bem original ou algum aperfeigoamen- 
to util. Estamos a espera, portanto, de alguma colabora- 
cao neste sentido para podermos publica-la num dos 
proximos numerosde MICROHOBBY. 



PROGRAMA 
DOMES 

ANTI-MISSIL 




Muitos de nossos leitores possuem outros microcom- 
putadores que usam uma logica compatiVel com a do 
TK. Alguns deles, como os primeiros modelos do 
NEZ80Q0 da Prologicaou ZX81 da SINCLAIR tern ape- 
nas 1 K de RAM. Para eles estamos publicando este pro- 
grama que e uma verdadeira acrobacia em termos de 
economia de memoria. 

A digitacao deste programa tern entao duas utilidades: 
uma e o proprio programa em si, que gera urn joguinho 
divertido (dentro, 4 obvio, das limitacoes de memoria). 

Um mi'ssil (V) desce segundo uma trajetoria que so- 
fre desvios aleat6rios. Voce comanda um anti-mi'ssil 
terra-ar (+> que deve destruir o mi'ssil. No fim do jogo 
aparece o niimero de mfsseis destrui'dos. 

Para guiar seu anti-mi'ssil, voce usa as teclas: 

li 

ou seu joystick. 

A outra utilidade e o aprendizado de alguns "tru- 
ques" para economizar memoria. 

Ao digitar 

GOTOVAL "20" 




SHREW MIROHOBBY 63 

1 FOR N=PI/PI TO URL "9" 

2 let r=url "ae- 

3 l_ET B=VRL "Xi- 
4- LET X=PI-PI 

5 LET Y=B 

6 FOR F=PI-PI TO URL "63" 

7 PLOT F, PI-PI 
S NEXT F 

9 PRINT RT R,B;" +" 

18 PRINT RT X,Y;"U" 

13 PRINT RT fl,B;" " 

15 LET Z=INT <RND*URL "3"> 

16 LET X=X + 1 

17 LET Y=Y+CZ=URL "1")-(Z=VRL 
'■0" ) 

18 IF INKEY*="6" THEN LET R=R+ 
2 

19 LET B=B+ (INKEY$ = "6") - tXtfKEY 
*="5") 

20 LET R = R- (INKEY * = ""?■") 

21 IF R=X RND B=Y OR X > =22 THE 
N GOTO URL "£3" 

22 GOTO URL "Q" 

23 CLS 

24 IF R=X THEN NEXT N 

25 IF X=URL "22" THEN PRINT N 



ao invesde 

GOTO 20 

voce esta economizando 3 bytesl 
Da mesma forma, ao fazer 



X= PI/PI 

ao inves de 

X= 1 

voce livra 4 bytes. 

Para se convencer disto, antes de digitar o ANTI-MI'S- 
SIL, digite o seguinte programinha: 
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PROGRAMA DO MES 
ANTI-MlSSIL 

Continuapio... 

1 GOTO 2 

2 PRINT PEEK 16404 + 256 * PEEK 16405 
- 16510 

Ele indica, rta tela, quantos bytes de mem6ria o pro- 
grama esta ocupando, Anote o numero indicado e mude 
a linha 1 para 

1 GOTO VAL "2" 

Compare o numero de bytes ocupados agora com o 
valor obtido anteriormente. 


Os primeiros modelos do NEZSOOOe do TK82-C nao 
tinham SLOW Por isso, quern tentou rodar o programa 
BARAO VERMELHO do n° num destesequipamen- 
tos deve ter notado que nao funciona, a menos que se 
coloque uma instrucao: 

PAUSE 30 

apos cada instrucao PRINT, 

No programa ANTI-MI'SSIL este cuidado tambem 6 
indispensavel se seu computador nao tiver SLOW. Por is- 
so acrescente a linha 

12 PAUSE 30 

Havera o inconveniente da tela f icar piscando, mas as- 
sim mesmo voce podera jogar e se divertir. 


PROGRAMA DO 

ALTA RESOLUCAO 
NA IMPRESSORA 
DOTK 

Quando fazemos urn grafico na TV usando o 

PRINT AT 

estamos gerando um desenho, que tern amplas possibili- 
dades nas nuances (pois podemos utilizar va>ios caracte- 
res diferentes}, mas que tern baixa resolucao. Como os 
caracteres graficos podem ser dispostos ao longo de 32 
colunas e 22 linhas, (ou no m^ximo 24 usando as linhas 
de edicao), temos uma matriz grdfica de no m^ximo 

24X32 

posicoes. 
Ja" a instrucao 

PLOT 


MES 

permite uma melhor definicao gr^fica, pois cada unidade 
por ela gerada ocupa 1/4 da area ocupada por um carac- 
tere, Obviamente, perdemos a possibilidade de "semi- 
tons", pois a unidade gra^ica do PLOT e unica. Em com- 
pensacao os desenhos podem ser muito mais detalhados, 
pois, a matriz grdfica tern agora 

44X64 

posicoes. 

Este e o m^ximo de resolucao que podemos obter na 
tela da TV. Em breve, teremos no Brasil, a producao de 
um perifeYico para o TK, que permitira a elaboracao de 
desenhos com alta resolucao na tela de TV. Por enquan- 
to devemos nos contentar em fazer estes desenhos na 
impressoraTK-PRINTER. 

programs que apresentamos a seguir, tern uma sub- 
rotina que altera o comando LPRINT para a impressora, 
permitindo a impressao de uma matriz de 

256 X 256 

posicoes. 

No TK-85 ele roda tranquilo, mas no TK-82 e" indis- 
pensavel uma expansao de pelo menos, 16K. 



14 MICROHOBBY 



PROGRAMA DO MES 
ALTA RESOLUCAO NA 
IMPRESSORA DO TK 

Continuagio... 



1 REM U|RND . UBRNDSfcF .TRN .. 

2 POKE 16389 . 124- 

3 CL5 

4- IF NOT PEEK 163S8+2S6 SPEEK 
16389=31744 THEN STOP 
5 FOR 1=0 TO 1.12 

POKE 3 1744. + 1, PEEK (3161+1) 

NEXT I 

POKE 31300.63 

POKE 31857,201 

POKE 16517,95 

POKE 16S24.79 

DIM R* (32 , 256) 



a 

9 

10 

11 

12 

13 

14 

15 

20 

3 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

165 

170 

174 

175 

169 

190 

195 

9980 

9981 
>255 
5982 
9983 
9984 
998S 
9986 
) 

9987 
99SS 

9989 

9990 

9991 

9992 

*<J 

9993 

9994 

9995 

9996 

9997 

9998 

9999 



FR5T 

LPRINT 

LPRINT 

(_ET 

LET 

LET 

LET 

FOR 

LET 

LET 

LET 

FOP 

LET 

LET 

LET 



S 



EM 3-D" 



GRflFICO 
Xl=128 
X2=X1**2 
Yl=128 
Y2=32 
E=0 TO 127 
X4sBf*2 
M=-Y1 

fl=SQR fX2-X4>3 
I = -R TO R STEP 10 
R=SOR CX4+I*!} /Xl 
F=COS (9*R) t(l-R) *2 
Y;I/5+FtY2 

THEN GOTO 1S0 



<X,Y) Nft MRTRIZ 



OR Y «,0 OR Y 



IF Y<=M 
LET H=Y 
LET Y=Y1+Y 
LET X=X1+B 
GOSUB 9980 
LET X=X1-B 
GOSUB 9980 
NEXT I 
NEXT B 
GOTO 99SS 
REM PLOTR 

R 4 
IF X<0 OR X>255 
THEN RETURN 
LET C = 1 + INT t X .-- "S ) 
LET R =256 -INT Y 
POKE 16526 .CODE R*tC.R> 
POKE 16527,2t*!B*C-INT X-l) 
LET flt(CjR) =CHRt (U5R 16514 

RETURN 

REH IHPRIME 8 LINHRS DE 

CRDR UEI 
FOR 1=0 TO 246 STEP S 
FOR U=l TO 32 
FOR K=l TO S 

POKE 32255-f-K+S* ( O-l) .CODE ft 
K + I) 
NEXT K 
NEXT J 

FOR H=© TO 31 
POKE 16444+H..H 
NEXT H 

LET HPRINT=USR 
NEXT I 



31744 



EXEMPLO: 

f 
GRRFICO EM 3-D 







A linha 1 contain, aposo REM, urns sequencia de ca- 
racteres cujos codigos constituent uma sub-rotina em Nn- 
guagem de maquina. 

Esta linha deve ser digitada com todo o cuidado, pois 
por qualquer errinho poe tudo a perder. 

Para facilitar, colocamos a seguir, a lista dos caracte- 
res que a constituem com o numero de seu codigo (em 
caso de duvida consulte o apendice A do manual do TK). 



U 

■ 

RND 

y 
m 

RND 



TRN 



CQDIGQ: 
CODIGO^ 
CODIGO= 
CODIGO: 
CODIGO: 
CODIJQQ: 
CODIGO: 
CODIGO: 
CODIGO; 
CODIGO: 
CODIGO: 
CODIGO: 
CODIGO: 
CODIGO: 



■5C 

142 

64- 

56 
143 

:64 

■179 

:6 

:£J 

27 

2E1 

:£E7 
:27 



Esta sub-rotina permite a superposicao de urn graftco 
sobre outro, fazendo a operacao logica OR entre os dois 
bytes nos enderegos 16526 e 16527, As linhas 2 e 3 re- 
servam urn espaco na memoria e a linha 4 bloqueia o 
prngrama, no caso desta reserva ruin tei Se afetivado 
Neste caso e convenient^ se salvar o que foi digitado 
em fita e a seguir dar ao computador os dois comandos. 



POKE 16389, 124 
NEW 



(NEW LINE) 
(NEW LINE) 



Em seguida, recarregar o programs ja digitado no 
computador. 



MICROHOBBY 15 



PROGRAMA DO MES 
ALTA RESOLUCAO NA 
IMPRESSORA DO TK 

Continuapao... 



As linhas seguintes, at£ a 11 completam a primeira 
sub-rotina e tomam a sub-rotina LPRINT da ROM do 
TK e 3 alteram para as f inalidades deste programa. 

A matriz A$, dimensionada na linha 12, ocupa 8K da 
memoria e armazena a posicao dos pontos a serem "plo- 
tados" na impressora. 

A sub-rotina de 9980 a 9987 registra as coordenadas 
X e Y na matriz A$, e a subrotina de 9988 a 9999 impri- 
me os pontos (8 linhas de cada vez). 

No programa que estamos publicando as linhas de 13 
a 195, geram o grafico tridimensional, que o pessoal de 
grafica batizou de "cogumelo". Alterando apenas estas 
linhas, mas deixando intactas as linhas de 1 a 1 2 e 9980 
a graficos em alta resolucao. Podem ate ser geradas men- 
sagens em maiusculas e minusculas, com acentos e cedi- 
Ihas. No grafico do cogumelo voce podera alterar o for- 
mate mudando as linhas 100 e120. 




ESTE GRfiFIC-O FOI OSTIDO flLTERBN- 
DO H5 LINHA5 1O0 E 120 PfiRR : 
100 FOR I=R TO -fl STEP 2 
1£0 LET F=COS i AS *R> * ( 1-RJ *2 

CUIDflDO,SEU PROCESSflHENTO DEHORfl 
flPROXIMflDflHENTE UHPi HORf* 



Apos rodar o programa, a sequencia da linha REM fi- 
ca acrescida automaticamente de outros caracteres. 

Aconselhamos, antes de rodar o programa, salva-lo em 
fita uma ou duas vezes Uma vez rodado, sua gravacao fi- 
cara muito mais demorada, pois ele armazenara tambem 
os 8K da matrir A$. Isto e muito bom, quando voce nao 
quiser perder muito tempo para gerar a matriz outra vez. 



Este processo e demorado, pois voce, estara produzindo 
uma matriz de 

256 X 256 = 65536 posigoes 

Obviamente, por mais bonitos que sejam os graficos 
obtidos por este programa, voce nao vai querer ficar o 
tempo todo desenhando "cogumelos"; para gerar grafi- 
cos de sua invencao, e necessario compreender a "arqui- 
tetura" da matriz A$. 

Ela armazena 256 linhas e 256 colunas, mas na linha 
12, seu dimensionamento 6 

12 DIM AS (32,256) 

ou seja, 256 linhas, mas, apenas 32 colunas. 

Isto e facil de ser explicado: cada coluna de matriz A$ 
contem 1 byte, ou seja, 8 bits. Como cada ponto esta as- 
sociado a 1 bit temos: 

32 bytes X 8 bits/bytes - 256 bits 

A posicao dos pontos na matriz e dada pelas suas 
coordenadas (X, Y): 



10,255) 




(255,2551 


i 

i 
i 




" ~¥ 


i 
i 

■ 

i 

Y# 

i 


-»(X,Y) 

i 




t 

j 
• 

(0,0) 


i 
i 

X 


* 

(255.0) 

Fig. 2 



A posicao dos elementos da matriz A$ e dada pela f i- 
gura 3. 



A$(1,1),A$(2,1] A$(32, 1) 

A$(1,2) 



A$ (1,256). 



A$ (32, 2561 



Fig. 3 
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PROGRAMA DO MES 
ALTA RESOLUCAO NA 
IMPRESSORA DO TK 

Continuacpao... 



Como jet dissemos, cada elemento A$ represents 1 li- 
nha e 8 colunas (uma por bit) . 

Vamos recordar urn pouco a estrutura de um byte (ft- 
gura 4). 



bit 7 


bit 6 


bit 5 


bit 4 


bit 3 


bit 2 


bit 1 


bit 


2 7 


2 6 


2 5 


2 4 


2 } 


2 2 


2 1 


2* 


128 


64 


32 


16 


8 


4 


2 


1 



Se quisermos, por exempio, imprimir um elemento 
qualquer da matriz, pontos nas colunas dos bits 6, 4, 2 e 
1 , deixando os outros em branco, deveremos atribuir ao 
byte correspondente o valor 

64 +16 + 4 + 2= 86 

Assim, se por exempio, quisermos desenhar no canto 
superior esquerdo o que esta representado na figura 5. 



AS 11, T) 
AS (3,2) 

AS ( 1 , 3) 
ASM.4I 
AS 11,5) 




9 W (C 

co n *- 


03 

1 




rM — 

I 128+ 32+8 + i = leg 

M 128 + 32+8 = 168 
■■ 12B + 64 + 32 + 16 + 3 + 2 + 1 =261 
1 3? + 1 = 33 


■ 






1 32 + 1 = 33 






deveremos 


■ ; 

22 

21 

2; 

23 

24 

2fc 


izer o s 

LET 
LET 
LET 
LET 
LEI 
GOl 


m 

f- 
fi 

fi 

fi 

' fi 

re 


LJ 1 
$ 

9 


nte "miolo" de programa: 

(1, 1) = CHR${169> 

(1.2) = CHR$(168) 

(1.3) = CHR$ (251) 

(1.4) = CHR$ (33) 

(1.5) = CHR$ (33) 
988 



Deixamos agora a imaginacao do leitor, odesenvolvi- 
mento de ulteriores aplicacoes. Apenas a titulo de exem- 
pio, vamos dar o "miolo" de programa que gera uma s6- 
rie de curvas isotermicas de um gas no diagrama de 
Clapeyron. 



I2BI>IM fi* (32 j 256 J 

13 PR 3X 

14- LPRINT "TRflNSFORHRCOES XSOT 

X5 LPRINT TAB IS; "PRE55RO X 



LUME' 


■ 


20 


FOR 1=1 TO 256 


30 


LET flJd.D-CHR* <32) 


4.0 


NEXT I 


50 


FOR 1=1 TO 256 STEP 32 


50 


LET Rf(l J I)=CHR$ r.224-3 


82 


NEXT I 


64. 


FOR 1=1 TO 32 


70 


LET Rt(I,239j=CHR$ 1255} 


S0 


NEXT I 


30 


FOR X = l TO 32 STEP 4- 


130 


LET R* (I ,2481 =CHR* C12S) 


110 


NEXT I 


20© 


LET U = 4-096 


210 


FOR P=U TO 4.*U STEP , 5*L 


220 


FOR X=9 TO £52 


230 


LET V=P/X+8 


24@ 


GOSUE Q9S0 


250 


NEXT X 


260 


NEXT P 


270 


GOTO 9988 



Uo 



TRRNSFORMRCOES ISOTERMICAS 

PRE55RO X UOLUMi 
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D/CAS 

A FITA BRINDE 




A fita brinde que foi enviada para nossos assinantes 
contem dois programas interessantes: PULGA para 2K 
e SIMULADOR DE VOO para 16K. 

A fita esta gravada dos dois lados para maior seguran- 
ca. Com relagao ao programs SIMULADOR DE VOO 
cabem duas observacoes: 
1 ) Querendo mudar o "piano de voo" devemos digitar 

M (mapa) e a seguir B. A nova cidade escolhida apare- 



cera" piscando no mapa. Digitando V aparecera nova- 
mente a cabine, Nas proximidades do pouso digitar V 
novamente: a cabine desaparecera' e em seu lugar ve- 
mos o campo de pouso em perspectiva. 
2) No TK85 ha urn pequeno grilo facilmente soluciona- 
vel: 
a linha 

8390 RETURN 

deve ser substitui'da por 

8390 GOTO 8391 

8391 RETURN 

Para isto basta dar um BREAK no programa e lista-lo. 
Se nao f izermos isto, o programa sumira de RAM apos o 
primeiro acidente (o TK85e muito sugestionavel!}. 

programa assim alterado podera agora ser armaze- 
nado em HIGH-SPEED. 



D/CAS 

COMO MEMORIZAR 
A TELA 




(Pierluigi Piazzi) 



A RAM do TK e estruturada de uma maneira um 
pouco diferente da de outros microcomputadores: o 
"display", ou seja, a tela nao e armazenada num ponto 
fixo da memoria, mas movimenta-se para cima e para 
baixo em funcao do tamanho do programa, enderego 
da primeira posicao do arquivo da imagem e uma varia- 
vel do sistema denominada de DFILE e seu valor, esta 
armazenado nos Bytes dos endere<pos 16396 e 1 6397. 

Para ler o valor de DFILE (D = Display: tela - FILE: 
arquivo), basta fazer: 



PRINT PEEK 16396+256* PEEK 16397 

Se seu computador estiver "vazio", ou seja, sem ne- 
nhum programa armazenado, voce obtera 

16509 



que e o enderego do primeiro byte do programa. 
Mas se voce fizer: 

1 PRINT PEEK T6396 + 256 * PEEK 16397 

e a seguir RUN 

voce obtera 

16550 

pois o programinha correspondents a Linha 1 que voce 
digitou ocupou 41 bytes e portanto deslocou a mem6- 
ria correspondente ao arquivo da tela de 41 bytes 
(fig. 1). 

COMECO DA RAM DO TK 



Variaveis do sistema 
(inctuincJo DFILE} 


Programa de 
41 bytes 


Arquivo 
da tela 


16384 


16509 


' 16550 



Vejamos agora, como transferir o conteudo do arqui- 
vo da tela para uma unica variavel. 

Em muitos programas formam-se na tela desenhosou 
letreiros gastando para isso muito tempo de proces- 
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DICAS 










UVROSPARA TK, NE Z, CP 




COMO MEMORIZAR 










A TELA 




TRINTA JOGOS 

INCLUINDO PROGRAMAS EM CODIGO LIS 




Continuagao... 


samento. Para reproduzir estes desenhos sern gastar no- 




TADOS POR IMPRESSORA 




vamente todo tempo de processamento, podemas adotar 




JOGO DE DAMAS, LABIRINTO, GUERRA 




como sub-rotina o programa a seguir. 




NAS ESTRELAS, ENTERPRISE, PAREDAO, 




3000 DIM fi$(704.) 




DEMOLIDOR, VELHA, pASSINO, ROLETA 
RUSSA, CORRIDA DE CAVALOS , GOLF, 




3010 FOR 1=0 TO 21 




VINTE E UM, CUBO MAGI CO, SENHA.BAN 




3030 FOR J=l TO 32 








3030 LET R$(U+32*IJ =CHR5 PEEK tt 




CO IMOBILIARIO, BOMBARDEIO, SOM 




PEEK 16396 +256 (PEEK 16397) +J+33* 








I) 




POR SOFTWARE, ETC.... 




304-0 NEXT «J 
3050 NEXT I 




LANCAMENTO Cr$ 2.500,00 

APUCACOES SERIAS 

9 




A variavel A$ tera 704 elementos pois 


22 linhas x 32 colunas = 704 posicoes 




FOLHA DE PAGAMENTO, BALANCETE ,CON 
TAS A RECEBER, A PAGAR, CORREQAO 




Na linha 3030 o final e realmente 




MQNETARIA DAS CONTAS DO BALAMQO, 




. . J+33* 1) 




CORREQAO DAS GONTRIBUICOES DO I. 
A.P.A.S., CADASTRO DE CLIENTES , 




e ngo 32 pois ao fim de cada linha da tela ha urn byte de 




CONTA BANCARIA.TABELA PRICE,£STA- 




NEW LINE. Esta sub-rotina deve ser chamada por algu- 




TISTICA,CORREgAO DE PROV AS, EDITOR 




ma instrucao do proprio programa e nunca por um co- 




DE TEXTOS,RAM TOPER , SUB-ROTINAS 




mando direto. 




EM CASSETTE, CHAINING PROGRAMAS, 




Toda vez que voce da um comando direto ao seu TK, 








seu primeiro efeito € justamente apagar a tela. Desta for- 




CONTANDO OS BYTES DAS LINHAS, DO 




ma ao comecar, a sub-rotina copiara uma tela vazia. 




PROGRAMA, DAS MATRIZES, ECONOMIZAN 




Voce podera entao intercalar no seu programa uma 




DO MEMORIA, ETC... ETC... 




instrucao do tipo 




Cr$ 3,000,00 




1510 IF INKEYS = "P" THEN GOTO 3000 








desta forma, ao apertar a tecla P seu programa parara e a 




45 PROGRAMAS 




tela ficara inteirinha copiada na matriz A$. Para checar 




j 




basta dar o comando direto 




ARQUIVOS.ESTOOUE, PLANO CONTABIL , 
AGENDA TELEFONICA, INVASORES , APAGUE 




PRINT A$ 




A TRILHA, CACA AO PATO, JOGO DA VE 
LHA, FORCA, DADO, TABELAS,TABUADAS, 




e seu desenho, que demorou tanto para ser elaborado. 




C0NVER5A0 DE COORDENADAS, MEDIA, FI 




reaparecera em uma fracao de segundol 




BONACCr.PROGRESSAO, BIORRiTMO , RE 




Dispondo de bastante memPria, voce pode trocar o 








AS das linhas 3000 e 3030 por B$ e repetir o processo. 




NUMERATOR DE LINHAS EM CODIGO, ETC. 




Cuidado apenas para nunca digitar RUN ou CLEAR! 








Oportunamente voce podera fazer um outro pedaco 




7? EDICAO Cr$ 3. 000,00 




de programa para imprimir A$, B$, C$ e assim sucessiva- 








mente. 








Outra vantagem deste processo esta" no fato de poder 




MICRON 




arquivar todos os desenhos feitos em fita magnetics, 




ELETRONICA COMERCIO E INDUSTRIA LTDA. 




pois ao dar um "SAVE" voce estara armazenando as ma- 




Av. S. Joao. 74 - Telefone 22-4194 ■ S Jose dos Campos 
Esl. de Sao Paulo 




trizes AS, B$, . . . 




L- ^ 




• 
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PROGRAMA 
DO LEITOR 

"O POETA" 



Bernardo Claudio Stein 



Para pessoas que nao estao familiarizadas com compu- 
tacao, o microcomputador parece uma maquina inaces- 
si'vel, misteriosa e fria. 

programa "0 POETA" que ora apresentamos aos 
leitores, foi criado para ser utilizado por pessoas sensf- 
veis e poeticas, Gaste um pouco do seu tempo e digite o 
programa no seu TK85 ou TK82 com expansao. 

Este programa, gera lindas poesias, a partir de 17 ex- 
press5es que voce mesmo escolhe e introduz no compu- 
tador. 

Vejamos como . . . 

1) Digite a listagem apresentadas na "figura 1". 

2) Passe o programa para o gravador 

a) Entre "GOTO 3200" 

b) Cotoque o gravador em "R EC" 

c) Entre NEW LINE- 
SI Apos a gravacao, o programa apresentara o Menu da 
"Figura 2". 

4) Escolha a Opcao numero 1. 

5)0 programa convida voce a entrar com 17expressoes 

a sua escotha. 

a) escolha uma palavra (ou conjunto) 

b) entre com ela no computador 

c) entre "NEW LINE" 

d) continue com as expressoes ate completar 1 7, 

6) programa volta ao Menu principal. 

7) Se voce quiser rever as palavras escolhidas entre com a 
Opcao 2. 

8) Voce vera, entao, por alguns segundos, os 17 termos 
escolbidos e depois retorna ao Menu. 

9) AGORA GRANDE MOMENTO. . . 
Escolha a Opcao numero 3. 

computador gerara uma poesia usando as 17 ex- 
pressoes que sua veia poetica escolheu. 
10> Se voce possuir a TK-PRINTER podera guardar pa- 
ra sempre aqueles melhores poemas que o computador 
gerou: basta digitar "COPY" e "NEW LINE" quando a 
poesia estiver apresentada na tela. 

1 1 ) Para voltar ao menu principal entre "GOTO 3210" 
e "NEW LINE 

12) Se voce quiser gerar logo outro poema entre 
GOTO 2" e "NEW LINE" 

13) Voce pode armazenar para sempre o programa 
COM os 1 7 termos escolhidos: 

a) Escolha a "Opcao nP 4" do Menu 



UOCE, COM SUR VEIfl POETIC PI, IRA 
CRIflR 1? PRLflURRS ttUE 5ERRO 
USRDRS POR MIK PflRR GERRR LINDOa 
POEMflS 



ENTRE COM AS PRLRURRS , UMR R UMfl 
1. 



■a* 



PHLflURRS QUE ESTRQ 



NRHEMORIRT 



3E RPRRECER R MENSRGEH DE ERRO 
2/3e30 J ENTRE GOTO 3219, RPOS 1 



X. 


Q SOL 


2 . 


ft BRISfi 


3. 


RS ONORS 


4.. 


BRILHRHOO 


5 . 


R CHUVfi 


6. 


CRINDO 


?. 


RS 


a. 


HORRS PR5SRNDO 


9. 


CREPUSCULO 


10. 


SEMPRE 


11. 


NUNCR 


12 . 


COM 


13. 


5EM 


14. 


ELE 


15. 


EUR 


16. 


BEIdOS 


17". 


LRGRIMRS 



OURNDO R POESIR TIUER PREENCHIDO 
R TELR, ENTRE "GOTO 331(3" 



RS 



ELR O SOL 

CRINDO BRILHRNDO BRILHRNDO RS 



ELE ELR RS ONDRS 

BRILHRNDO NUNCR COM HORRS PR5SRN 

DO LRGRIMRS ELE SEMPRE 



RS ONDRS 

BEIJOS ...R CHUUR BEIJOS SEMPRE 

LRGRIMRS 



CRINDO 



figura 1 

b) O programa sera entao gravado com as palavras es- 
colhidas. 

14} Se voce quiser carregar o programa na mem6ria do 
TK entre com LOAD "O POETA" ou LOAD " " 
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PROGRAMA DO LEITOR 
"O POETA" 

Continuac^ao... 

wm&^mmm^:M^ mam mmwmmmammBm 

UOCE SUER . . . 

1. CRIflR UMR HOUR POESIfl 

2 . REUER R5 PRLRURR5 QUE 

EST fiO Nfl HEHORIfi 

3. GERfiR UHS PQESIR COM 
OUE ESTfiO Hfl MENORIR 



4. 



GRRURR AS PRLRiJRflS 

PR HEHORIfi 



IHiii 



,.'*•. 



F IG . 2 



151 Durante a utilizacao do programa evite entrar com 
"RUN", pois isto apagara todos os 17 termos da memo- 
ria. Neste caso, se voce escolher a "Opcao nP 2" sera 
apresentada a mensagem de erro 2/3030. 

Neste caso entre com "GOTO 3210" e "NEW LINE" 
e escolha a "Opcao nP 1 " do Menu. 

Apos algumas tentativas, voce percebera' a convenien- 
cia de utilizer substantives, ja com seus adjetivos, verbos 
no infinitivo e truques similares. Desta forma voce evita- 
ra erros de concordancia muito evidentes, Certa vez, o 
fi'sico James Jeans disse que, se pudessemos acorrentar 
dois chimpanzes a urn piano e eles pudessem bater nas 
teclas ao acaso indefinidamente, com certeza, apos al- 
guns milhoes de anos, tocariam a 5 a Sinfonia de 
Beethoven. 

Ajudando urn pouco o seu TK, escolhendo locucoes 
bem fortes poeticamente, cercados de expressiva aura 
conotativa, voce poderagerar poesias incn'veis (no meio, 
obviamente, de ridi'cuiosfracassos). 

Muito bem, agora maos a obra. 

Quern sabe, voce podera se tornar urn novo Olavo 
Bilac; com a ajuda do seu "TK", obviamente. 



1 REH O POETP 

tCS -B.C. STEIN 
Mftfi i*=Jt?3 

2 CL C 

5 PRINT "SURNDO 3 FOESIR TIUE 
R PREENCHIDOR TELft . ENTRE """GOTO 

aais"" - 

7 PRINT "• . . .. i ii i am i n 

PRIM 1 ™ 

10 LET J=Ir-!T t21*RNDJ 

15 IF ■_*=© THEN PRINT 

20 IF Jv^l RHD .J < = 3 THEN GOSU8 

1000 

30 IF U>=4. THEN GCSUB iEtJitia 

4-0 GOTO 10 

50 PRINT hs; 

55 RETURN 

50 PRINT BS; 

65 RETURN 

"70 PRINT C$; 

75 RETURN 

80 PRINT D$; 

85 RETURN 

90 PRINT ES, 

95 RETURN 

100 PRINT F$; 

105 RETURN 

110 PRINT G$; 

1X5 RETURN 

12© PRINT H$; 

125 RETURN 

130 PRINT I*.; 

135 RETURN 

14.0 PRINT US; 

145 RETURN 

150 PRINT K|; 

155 RETURN 

150 PRINT L{; 

165 RETURN 

170 PRINT H$; 

175 RETURN 

180 PRINT NS; 

185 RETURN 

130 PRINT OS-" 

195 RETURN 

£00 PRINT PS; 

205 RETURN 

310 PRINT 0$; 

2 IS RETURN 

1000 PRINT 

1001 PRINT 

1002 PRINT 

1003 RETURN 
20©0 CL.S 

2005 PRINT P.T 5,0; "UQCE, COM 5UR 
UEIfl POETICft, IRfi CRIRR 17 PRt_R 

URR5 OUE SERRO USRDR8 POR HI 
M PRRR GERRR L. INOQ5POEHRS" 

2010 PRUSE 600 

2015 CLS 

2020 PRINT "ENTRE COM RS PRLRURR 
S, UHR P. UMfi" 



203O 


PRINT 




2050 


PRINT 


"1 . 


2053 


INPUT 


R$ 


2@57 


PRINT 


Ri 


2050 


PRINT 


"2. 


2@b3 


INPUT 


5$ 


2057 


PRINT 


e* 


2070 


PRINT 


"3. 


2073 


INPUT 


cs 


2077 


PRINT 


ct 


2080 


PRINT 


"4 . 


2033 


INPUT 


r>* 
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PROGRAMA DO LEITOR 
"O POETA" 

Continuagao... 



2087 
£090 
2093 
2097 
2100 
2103 
2107 
2110 
2113 
2117 
2120 
2123 
2127 

2130 
2133 
2137 
214-0 
214.3 
214-7 
2150 
21S3 
2157 
2160 
£163 
2167 
2170 
2173 
2177 
2130 
2183 
21S7 
2190 
2193 
2197 
2200 

2203 
2207 
2210 
2213 
2217 

2230 
224-0 
3000 
■^005 
ft ME 
3010 

3020 PRINT ■ 
EM DE ERRO 

2 10 '> RPOS 1 

3025 PRINT 

3030 PRINT ' 

304-0 PRINT ' 

3050 PRINT 

3050 PRINT 

3070 PRINT 



'PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
INPUT 
PRINT 

PRINT 
INPUT 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 



DS 

e*" 

E* 
"&. 

F* 
F| 

i* ■ 

G% 
G* 
"8 . 

hs 

H* 

"9. 

1$ 

IS 

■'10. 

J* 

US 

"11 

Kf 

K£ 

"12, 

LS 

L* 

X 3 i 
M* 
Mi 

"14, 

N$ 

N$ 

O* 
Of 
"16, 



INPUT 
PRINT 
PRINT 
INPUT 
PRINT 
PRUSE 
CLS 

GOTO 3210 
Ci_S 
PR INT 
MORIfi. 
PRINT 



PSi 

P$ 

"17, 
QJ 
QS 
270 



Pfil_fiURRS QUE E5TRQ N 



5E RPRRECER R MEN5RG 
2/3830, ENTRE GOTO 3 



3050 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3191 
3192 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRUSE 
CLS 



"3 

"9 

" 10 

"11 

"12 

"13 

" 14 

"15 

"16 

"17 

54-0 



" ; R * 
"; ct 

",Dt 
"i E* 

" i F* 

";g* 
";H* 
"; i* 
"i -J* 
";Kt 
"; L* 
";M* 
";Nt 
";o* 
"; p* 
" ; © * 



3193 GOTO 3210 

3194 CLS 

3196 PRINT AT 7,2; "C0L09UE O GRR 
URDOR EM ""REC"" ENTRE " 
"NEU LINE""" 

3197 INPUT Z* 

3195 CLS 

3200 SRUE "O POETB" 



3210 PRINT RT 
3215 PRINT RT 
3220 PRINT RT 
3230 PRINT RT 
R NOUR POESIR" 
3240 PRINT RT 
S PRLRURRS QUE 

NR MEMORIft" 
3250 PRINT RT 
MR POESIR COM 
PftLRURHS 
RO NR MEMORIfi" 
3260 PRINT RT 
RS PRLRURRS 
EMORlfl" 

3270 IF INKEY* 
3280 IF INKEY* 


3290 IF INKEY* 
3300 IF INKEY* 
4 
3310 GOTO 3270 



3, 1 
4,1 
7 ,3 
9,1 

11. 



1. 
1, 



;;c bb poetr; 
uoce ouer. 



14, 



lj 
1, 



18, lj 



— " 2' 

= "3" 
= "4-' 



CRIRR UM 

REUER R 
ESTRO 

GERRR U 

RS 
QUE EST 

"4. GRRURR 

Dfl M 

THEN RUN 2000 
THEN GOTO 300 

THEN GOTO 1 
THEN GOTO 319 



LANQAMENTO 



FASSAGEM PARA IMTIWITO 

SenSACiOnal JOgO Dftde vocft ten Lara enCcnirar o Baif com urn fabulQ&O ieeourQ esn um 
complex c iabsrin to. guardado poi lernvesp poWos monstrqs. a com mftlfl de 400 p9-S- 
sob Para ajuda-io. voce contarA com algum&a espadas que? garanurao sua softravi 

vine Ea na EuLa com us monalrcs, e com oe prisioneirofl enearce'radoB nu vAriaa pu 
salens que Ihe mdicarfco dam iriho a ieguar Tclalmentsem lunguagem de maqmr.a 
com graf icos fa n &a#tica trie n te animadoB e tr*a raveis da diflculdade para deiiflft-lo 
PT0QQ Crl T.000.00 

MIDWAY 

LTnift, (frandfigUMra nnundial astA.&endf,- Iravada nas agua» do AllanilCD Voce agora a 
o comandanta do submarine atGrmeo MIDWAY., sua mj8SA&. deeiruir lodas u baaea 
mimigu emaguae brasileirae Cuidado com oh navies, aviOsat minis Bspaihsdos pa 
Ioh unvasores Pare auxilia lo pCdera COnlar Mm UITi* ffOla de navfoj de reabaflWtCL 
menE*. varsaa tumrts aiiad&s e uits compuudor de hordo Um grand* dosafio com gra- 
ficoa e varies rotina& em Einguagem da mfcquma Ptbco Ol 5 000,00 



JORNADA HAS ESTHSLA3 



A flua nave inter planetaria ENTREFRJSE nece-»HA Hwrar a gaLAxla doe Invaaorea 

KUngon. a vna*. eomo coniandftnta da nav#, terA a ardua misaio de d#strui-los Um 
jego famoso nomuhdeiodo am umadesuaa meihoris v*rsoefl pala SoftkrisLian. com 
eieiios grthcoB seneaei&naifi Proi;o Cp( 5 OOC.Ou 



>.* DIMENSAO - 



Agor4 voc*)ipOdpLpf umnjpflri,ma#iTifl*u mlcrocomputador ttmZ' DIMENSAOdc-la 

jogos agiUcdlaatmea para te*ta.r sua coordnna^ao moLora Em SPACE INVADER voce 

temoaonginata invaeorBaatacandOaua nave e em ASTEROID voC*d*ve pousarem um 
planet* e, pars. tAntO devar*. ultrapMSar wobBtAculoa que VH*m (Layaf wntetuntandd 
dtialruMc Orandoejogosern Hnguageim d« m&quma Pre^u Cr| 5 WO. 00 



VISIIA AO CASSINO 



Qu aire gran das jogos em um afc ca^a nJquela. roleta. SI. e parMgul<;40 fatal fa^am 
par?» degta aa naaciona) conjuntc TodosoBjogcisccun grAfiCDser^iunaABmUngubgam 
do rr.aqu:na par* vooft que gosta de ap>3Star <S torcer Profo Cr* S 000,00. 



■ 10 JOQOS EXCIXAHTKS PARA 1 X- 



;?)?? pequer ' * ; 'gos para vc-ce ,r,.. ,, rKr:'.r-:'Ut7 ( ij rondei baal«[ite 01 aflAti It its prefTV 
maQio da J ogo6etrattilhoa.com video S#voc* n*o diapfle da a k pan nan de Jfl K jtpode- 
rA Wr sntCflicnLmento com eeta eensaclonal flta S* voce:)adiapCjed# LO K com pre para 
IncrementA-loi S ter**XOSlant*B JOfiOfl. FreQO Cri 4.000,00 



G&ntpre tD'rt&ico de pusifluer pane Oe B*asii sem 
■fl*spBE35 aflic»onan anvurdo unn tneque cu^a 

precisa wi$awt c gj'anu a recetnirseine de noss« 
inrormdhvo iU0VtDAfl(5 KMSTiAlH loiaimente 



Kpistisa] 

"" ClEiaCMC* ITQI 

Ru&da Lapa. ISO grupo505 

TeLs iaSg-aOST ■ 233-B94B 

CEP 200J3 1 ■ Rio de Janeiro flj 



Todaa u f itaa v Aoem embalagem l*crada r com grava^Ao prof iaaitina:. para mi |*r»n 
W«. A KrlStlan trocar* qualquer flLa que aeja envja4l, com d*fallOa de fabrica^io 
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DICAS 

USANDO AS 
LINHAS 22 E 23 

Flavio Rossini 



Quantas vezes voce ja nao deve ter se perguntado se 
seria possi'vet utilizar as ultimas duas linhas da tela 
(reservadas para a edicao}, especialmente para a realiza- 
cao de jogos. . . 

De fata, isto pode ser feito de urn modo bastante sim- 
ples: na memoria de endereco 16418, esta uma variavel 
chamada DF-SZ usada pelo TK para indicar o numero 
de linhas reservadas para a regiao de edicao; assim sendo, 
seu valor normalmente e dois. Basta entao modifica-lo 
para 0: 



1 POKE 16418,0 



Pronto! Experimente fazer agora 



2 PRINT AT 22, 0; 

3 PRINT AT 23, 0; 



"BEATLES" 
"FOREVER" 



e RUN 



No entanto, este truque so pode ser utilizado para 
efeftos detelal Se voce for fazer algum INPUT aposfa- 
zer este POKE, "coisas estranhas" poderao ocorrer As- 
sim, voce podera corrigir DF-SZ antes de fazer urn 
INPUT 



POKE 16418,2 



Para exemplificar o efeito, vamos apresentar um pro- 
grama que ilustra, alern disso, alguns truques de progra- 
macao. Tente explicar como funcionam as linhas 25, 30 
e 60 . . . 



S") -2* f I 



1 RfiND 
5 SLOU 

10 POKE 16418,0 

15 LET X=0 

28 LET V=© 

25 LET X=Xf2J(INKEVS=' 
NKEY$="5"J 

30 LET Y =V + ( INKEV $ = " 6 " i - f INKEY 
*="7"i 

35 IF X<® THEN LET X =30 

40 IF X>31 THEN LET X=0 

4-5 IF Y<© THEN LET V=23 

SB IF Y>23 THEN LET V =0 

55 LET Y*=STR$ Y 

50 LET ft = INT (a*Rr*D> #128 

65 IF LEW Y$=2 THEM PRINT RT Y 
,X:CHR$ CCODE Y$+ftJ 

"70 IF LEN Y(=2 THEN PRINT fiT Y 
^XjCHR$ CCODE Y$+fl) ; CHR$ (CODE Y 

$ C2) +m 

75 GOTO 25 



Digite RUN... aparece o numero no canto superior 
esquerdo: tente movimenta-lo usando as teclas 5, 6, 7 e 
8. que acontece ao chegar ao fim da tela? 

Tente agora este programa: 



1 SLOU 

2 POKE 16416,3 
5 IF INKEY*="" 

10 PR INT INK EY 5 , 

15 GOTO S 



THEN GOTO 5 



Digite RUN e a seguir qualquer tecla. 
tece ao digitar NEW LINE? 



o que acon- 
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PROGRAMA 
DO LEITOR 

CALENDARIO 




No numero da MICROHOBBY, publicamos urn pe- 
queno artigo a respeito de calendario, no qual era forne- 
cido um programa. 

Este programa permite calcular o dia e o mes no qual 
cai a PASCOA desde que seja conhecido o ano (REVIS- 
TA DOS USUARIOS DO TK - pag. 6). Pedimos tam- 
bem que os leitores nos enviassem um aperfeitpoamento: 
"dado o ano, em que dia cai o CARNAVAL?" 

Recebemos muitas respostas interessantes para cujos 
autores enviamos os brindes prometidos. Uma delas foi 
selecionada para publicacao: a de autoria de EDSON 
SAUER GUIMARAES. 

Com relacao a pergunta: "0 que aconteceu em Roma 
no dia 10 de outubro de 1582?" A resposta e "Nada, 
absolutamente nadal". De fato para ajustar o calendario 
de Juliano para Gregoriano, no dia 5 de outubro de 
1582 sucedeu o dia 15 de outubro de 1582. dia 10, 
entao, nao existiu! 

Para os leitores que queiram se aprofundar no tema, 
aconselhamos a leitura do BOLETIM DA SOCIEDADE 
ASTRONOMICA BRASILEIRA - ANO 5, N? 3 - 
OUT/DEZ 1982, pagina 5, onde comeca um excelente 
artigo de autoria de ROBERTO BOCZKO. 



1 REM EDISOW SRUER GUIHRRRES 
10 CLS . 

ae print "DieuE os ourtro rlg 

RRISMOS DO RNO CUJH PflSCOR E CP 
RNRURL UOCE BUER " 

3e print 

40 PRINT "R SEGUIR DIGITE NEW 

LINE- 
SO INPUT ft 

55 IE R^=I5S2 THEN GOTO SS 
SB GOTO 90 
S@ PRINT 
SI PRINT "SINTO MUITO MRS SO U 

RLE O CflLENDflRIO GREGORTRK* 

o- 

SS GOTO 50 

30 LET U=R- INT (fl/193 *19+i 

101 CLb 

1B2 PRINT "EM ";fl;" R PRSCOR CR 
I" 

103 PRINT "NO DOMINGO "; 

105 LET C=INT FP'iaSl +! 



110 


LET X = INT (,3*C/'4'> -12 




115 


LET Z=INT ( C8*C+R> /25> -5 




120 


LET D = INT (5*R,-4> -X-l@ 




las 


LET E=li*U+20+Z-X 




190 


IF E<@ THEN LET E=E+30 




300 


LET E=E-INT (E,'301 e-30 




3S0 


IF E=24 THEN GOTO 40© 




310 


IF »:E=2SJ RND (UMii THEN G 




OTO 4-00 




320 


GQTG 4-10 




400 


LET E=E-M 




410 


LET N=44-E 




420 


IF N<21 THEN LET N=N+30 




4-30 


LET B=D+N 




4-50 


LET B = B-INT (&s7) *7 




500 


LET N=N+7-5 




505 


PRINT 




510 


IF N>31 THEN GOTO 509 




520 


PRINT Nj '■ DE MRRCO" 




530 


GOTO 510 




but! 


PRINT N-31; " DE R8RIL" 




&X0 


LET M=N+y 




620 


LET B=0 




630 


IF (R-INT /.R,'"4) *4> <>® THEN 





GOTO t>80 

540 IF m-INT !R/100!*100)=0 TH 
EN GOTO 650 

&&0 LET 5=1 

670 LET M = M + 1 

530 PRINT 

530 PRINT "OS DIRS DE CRRNRURL 

CREM : " 

"700 GQ5UB &0Q 

710 PRINT " DOMINGO" 

720 GO SUB 5©0 

730 PRINT " SEGUNDR-FEIRR" 

74-0 GOSUB S00 

750 PRINT " TERCR-FEIRR" 

760 PRINT 

770 PRINT 
URR" 

775 INPUT 5$ 

780 IF 5£="C 

730 GOTO 770 



DIGXTE C PRRR COMTIN 



THEN GOTO 10 



S00 LET M=M+1 

810 LET 5=59 

820 IF B = I THEN LET S=8© 

830 IF M<=5 THEN GOTO 650 

840 PRINT H-S:" DE MARCO"; 

850 RETURN 

860 PRINT M-31; " DE FEUEREIRQ' 

S70 RETURN 
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NOVIDADES 

O HIGH-SPEED 
DO TK85 




O langamento do TK85 
despertou urn grande entu- 
siasmo por uma caracten'stica que, ironicamente, nao e 
a mais importante: o teclado. 

primeiro computador a usar teclado de membrana 
foi o ZX80 (eposteriormenteZX81) da SINCLAIR que 
encontrou este caminho para baratear mais ainda seu 
custo de producao e tornar o equipamento acessi've! a 
uma faixa de mercado que antes estava exclui'da do ma- 
ravilhoso mundo da computacao. 

No Brasil tivemos o NEZ8000 com teclado de mem- 
brana exigindo urn bocado de pressao e o TK82 com te- 
clado tipo "toque", consideravelmente maiscomodo. 

Apesar disto, muitos usuarios se queixavam do tecla- 
do, pois ao "apertar" a tecla queriam sentir urn movi- 
mento, para ter urn retorno. Para atender a este tipo de 
solicitacao a PROLOGICA lancou o CP200, versao com 
SLOW do NEZ8000 expandido, com a diferenca de ter 
urn teclado de teclas mbveis e um "bip" que indica se 
elas foram realmente acionadas. 

A MICRODIGITAL tambem atendeu a este tipo de 
solicitacao lancando o TK85, com teclas mbveis e um 
"design" muito atraente. 

preco do TK85, porem, em sua versao mais barata 
(16K), e quase o dobro do TK82 sem expansao. Sera 
que 14K a mais, um teclado maiscomodo e um aspecto 
mais bonito justificam este acrescimo? A resposta seria 
obviamente "nao" se o TK85 nao tivesse um acrescimo 
maravilhoso: as funcoes especiais de armazenamento. 

Futuramente pretendemos discutir todas, mas neste 
numero queremos destacar o HIGH-SPEED, 

TK82 e o CP200 enviam e recebem dados da fita 
cassete com uma velocidade inferior a 600 bits por se- 
gundo. TK85 tambem opera nesta velocidade, poden- 
do receber programas originalmente concebidos para o 
TK82, utilizando fitas e gravadores de qualidade media: 

Acoplado a um gravador de melhor qualidade, porem, 
ele pode operar com uma velocidade de transferencia de 
4200 bits por segundo! 

Nao existe, no mundo, um microcomputador deste 
porte que transfira dados nesta velocidade. Esta afirma- 



cao pode parecer ufanismo, mas no fundo reflete um 
pouco o orgulho que os brasileiros devem sentir numa 
ocasiao destas: produzimos um computador com uma 
caracten'stica que nao tern similar estrangeiro. 

numero 4200 bits por segundo nao consegue trans- 
mits o susto do usuario na hora que ele ve, por exem- 
plo, um SICOM ser transferido para a RAM do TK85 
em alguns segundos. 

A maneira de se conseguir uma fita gravada de manei 
ra especial para o TK85e muito simples: usando um gra- 
vador de boa qualidade e uma fita "low noise", deve-se 
proceder como segue: 

micialmente transferir o programa de uma fita normal 
(300 bits por segundo) para a RAM do TK85 usando o 
comando LOAD " " 

Com o cursor em 13 (se necessario deve-se dar um 
BREAK ou um STOP no programa) digitar 

RAND USR 8405 

sem ainda apertar NEW LINE. 

Colocar a fita virgem no gravador, aciona-lo no modo 
"REC" {gravar} e deixar a fita correr um pouco. 

E conveniente, inclusive, se gravar alguma mensagem 
de referencia a viva voz, tipo "programa SICOM gravado 
em HIGH-SPEED no dia 20 de junho de 83, tres, dois, 
um, ja" colocar o plug no MIC e apertar NEW LINE. 

O comando digitado chama uma subrotina (batizada 
HISAVE) em linguagem de maquina que faz a TK85 
enviar o programa para a fita na velocidade espantosa de 
que ja falamos. 

padrao das faixas que aparece na tela da TV e com- 
pletamente diferente do SAVE "normal" e nao existe o 
hiato usual de 5 segundos. 

Ao terrninar a gravagao, num tempo surpreendente- 
mente curto, aparece o codigo de reportagem: 

0/0 

no canto inferior da tela. 

A fita esta corretamente gravada? Verificar isto com 
um "LOAD" e muitas vezes frustrante: a gravacao nao 
estava correta e o resultado e um computador com a 
RAM vazia. Neste momento o TK85 comeca a mostrar 
outra maravilha: a sub-rotina HIVERIFY. Voce volta a 
fita ate o ini'cio da gravacao, digita 

RAND USR 8539 

e aperta o NEW LINE. 

Ao apertar a tecia PLAY do gravador a tela mostrara 
um fundo escuro com alguns riscos brancos horizontals. 
Ao entrar o programa o padrao de riscos se torna pareci- 
do como HISAVE 
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Assim que o programa "passa" peio computador, sem 
ser carregado e sem afetar o que ainda est^ na RAM, a 
tela pode mostrar tres coisas: ou um OK tranquilizador 
na primeira linha, ou uma mensagem indicando 

ERRO 

ou continua escura. Neste ultimo caso convem repetir o 
processo aumentando o volume de reproducao. Se a 
mensagem indica ERRO e conveniente repetir o proces- 
so de HISAVE 

Se a mensagem diz "OK", entao voce pode desligar 
seu TK tranquilo pois o programa esta" bem gravado. 

Quando quiser recolocar o programa assim gravado na 
RAM, voce deve usar a sub-rotina HI LOAD. 

Para tanto coloca-se a fita no ini'cio da gravacao, 
digita-se 

RAND USR 8630 

e NEW LINE. Poe-se a fita para tocar no PLAY e espera- 
se o codigo 0/0 no canto inferior da tela, indicando que 
o programa ja passou da fita para a RAM do TK85. 



HIVERIFY— RAND USR 8539 



Resumindo: 

HISAVE -^RAND USR 8405: Usar bom gravador e 

fita de qualidade. 
Uma mensagem a vi- 
va voz ajuda local i- 
zacoes posteriores. 
Compara o progra- 
ma da fita com o 
que ainda esta 1 na 
RAM indicando se 
a gravacao foi cor- 
reta. 

HILOAD ♦RAND USR 8630: Passa o programa da 

fita para a RAM, 
apagando eventuais 
programas pre-exis- 
tentes. 
Quern ja" tern uma colecao de fitas gravadas para o 

TK82, CP200, ZX81, pode agora, com estas tres sub- 

rotinas, preparar outra colecao para o TK85. 

Realmente, quern comprou o TK85 para ter um te- 

clado "mais comodo" vai ter muitas agradaveis surpre- 

sas: nem sempre se compra gato par lebre, Este e um t(- 

pico caso em que muita gente acabou comprando lebre 

por gato. 

E isso porque ainda nao falamos de outras maravilhas 

do TK85 pois queremos deixar alguma coisa para um 

pr6ximo numero de MICROHOBBY, 

Por isso nao estranhe, se souber de algum turista ame- 

ricano que acabou contrabandeando um microcompu- 

tador brasileiro para os Estados Unidos. 
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Ate agora, s6 mandamos o computador executar uma 
ordem por vez; como fazer para que ele execute varias 
ordens em sequencia? Para isto, e necessaVio NUMERAR 
as ordens (tambem chamadas instrucoes). Por exemplo, 
digite: 

10 let a-eH 

e, a seguir, NEW LINE. Pelo fato de ter um numero na 



sua frente, a ordem nao 6 executada; apenas copiada na 
parte ae cima da tela da seguinte maneira: 

ieO_ET r =e 

a seguir, digite: 

20 PRINT Pd 
e NEW LINE, na tela voce ira" obter 



10 LET fl=0 

aaflPRiNT r 



Notamos que apareceu um novo cursor, o cursor 
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que indica para qual das linhas o computador esta' 
"olhando". Para desloca-lo, utilize SHIFT juntamente 
com as teclas 6 ( \ ) e 7 ( + ). Suponha que voce tenha 
"errado" a instrucao (ou linha) 10 e quisesse fazer com 
que a variavel A fosse igua! a 15 e nao . Desloque, en- 
tao, o cursor B para a linha 10 {usando SHIFT e a te- 
cla 7); para poder corrigi'-la, devemos deslocar o cursor 
usando -*■ (ou -*- ), mas isto so e possi'vel, se a linha es- 
tiver na parte debaixo da tela. Para traze-la a esta posi- 
cao, bssta apertar SHIFT e a tecla I (EDIT) e voce obte- 
ra a linha copiada na parte inferior da tela: 

100 LETT R=0 

Desloque o cursor ate depois do di'gito (J, apague-o 
(usando RUBOUT), e substitua-o por 15, voce obtera: 

10 LET H=1S8 

e, a seguir, NEW LINE; a linha 10 no topo datelaser3 
substitui'da por esta NOVA iinha 10. Vamos fazer volta- 
la a original, usando agora outro metodo; sem trazer a 
linha para baixo, escreva uma nova linha 10 na parte 
inferior da tela: 

10 LET fisflffl 
eaperte NEW LINE 



Novamente, a linha 10 superior sera alterada. 
Para exercitar, tente agora substituir a linha 10 por: 

10 LET (=1=5 

utilizando qualquer um dos do is metodos. 
Feito isto, vamos acrescentar outra instrucao: 

30 PRINT 3*RB 

Apos apertar NEW LINE, teremosentao oseguinte: 



10 LET R=5 
20 PRINT R 
3e&>RTtfT 3*R 



Observe que, intencionalmente, nao estamos utilizan- 
do numeros consecutivos para numerar as instrugoes, 
Isto e util, para podermos colocar novas instrugoes entre 
duas ja existentes, o que, nao seria possi'vel se as duas tt- 
vessem numeros consecutivos. Por exemplo, digite o se- 
guinte: 



25 PRINT "R=";nH 

e a seguir NEW LINE. Voce observara que esta instrucao 
"toma" seu devido lugar entre as linhas 20 e 30 . que 
ternos agora? Vejamos, 4 instrucoes "numeradas"; se 
executassemos uma de cads vez, iri'amos obter respecti- 
vamente na tela nada na primeira, pois ela apenas atribui 
o valor 5 na membria a variavel A, na segunda, aparece- 
ria o numero 5 na tela, na terceira, a letra A seguida do 
caractere = e do valor da variavel A (ou seja 5} e na 
quarta, o numero 15 (3*5); mas, agora, poderemos 
executa las TODAS sequencialmente. Para isto basta 
pressionar a tecla R; como o cursor esta em 13 , apare- 
cera a "key-word": 

RUN B 

e a seguir NEW LINE. Esta instrucao tern o segumte 
efeito: faz intcialmente um CLEAR (para limpar todas 
as variaveis que eventualmente tinham sido definidas) e, 
a seguir, ordena ao computador que ele execute sequen- 
cialmente as ordens numeradas. Ponanto na tela voce ira 
obter: 



5 

R=5 

15 



e na rnem6ria teremos o numero 5 associado a variavel 
A, Note o efeito do ponto e vi'rgula (,) na instrucao 25. 
Ele indica que duas coisas serao escritas "lado a lado" 
com um s6 PRINT. 

Preste atencao: quando voce numera as ordens, o 
computador NAO as esquece. Em outras palavras, as or- 
dens numeradas sao armazenadas em sua memoria. Nes- 
te instante, voce nao as ve na tela pois ele esta apenas 
mostrando os RESULTADOS das ordens. Para fazer 
com que ele mostre as ordens na tela, utilize a seguinte 
instrucao: 



LIST H 



letra K> 



e NEW LINE. que acabamos de fazer e muito impor- 
tante e precisa estar bem claro em sua cabeca: ao orde- 
nar ao computador que faca uma determinada tarefa, 
sem colocar um numero na frente da ordem, o compu- 
tador a executa IMEDIATAMENTE esquecendo a or- 
dem em seguida, se voce numerar as ordens, elas sao exe- 
cutadas ao receber o comando RUN e o computador 
NAO as esquece. Elas estao em sua mernbria e podem 
ser vistas na tela fazendo um LIST. A faseem que voce 
escreve as ordens no computador e chamada de 
PROGRAMACAO; ao apertar a tecla RUN, ele executa- 
ra as ordens do seu PROG RAMA, faseessa, que chama- 
mos de EXECUCAO. E importante nao confundir as 
duas coisas. 

Vamos agora "brincar" um pouco com o nosso pro- 
grama; acrescente ao mesmo a instrucao: 
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40 LIST 



e execute este "novo programa", apertando RUN; e 
NEW LINE, Veja, o computador ira executar as suas 
ordens, sendo que a ultima, diz para que ele MOSTRE 
o programa na tela, assim voce ira obter: 



5 

n=s 

IS 

10 LET R=5 

20 PRINT R 

25 PRINT "fl=";fl 

30 PRINT 3*fl 

4-0 LIST 



Ou seja, no programa voce ordenou que ele se mos- 
trasse no final. Substitua agora a linha 40 por: 

4-3 RUN 

E execute o programa fazendo RUN e NEW LINE. 

que voce obtem? Varias vezes a rnesma saida 5, A e 
15. Voce saberia explicar por que? Observe a sua ultima 
instrucao: voce, ao terminar o programa, ordena que ele 
comece de novo. Dessa forma, ele ira se repetir ate nao 
haver mais espago na tela. Note que a ordem de RUN 
indica ao computador que ele comece a executar o pro- 
grama, a partir da primeira linha. Voce pode fazer com 
que ele execute, a partir de qualquer outra linha. Faca 
LIST e NEW LINE e, a seguir, substitua a linha 40 por: 

4-0 RUN 30 

a seguir, digite RUN e NEW LINE. 

Veja o que acontece: o computador "escreve" na tela 
5, A e 15 apenas uma vez, pois RUN 30 significa "de 
um CLEAR", e execute o programa a partir da linha 
30. Ora, ao tentar executar a instrucao 30 ele ira pro- 
curar a vanavel A na membria, mas nao iraencontra-la, 
pois ela foi apagada pelo CLEAR; assim, ele para a exe- 
cucSo do programa. Experimente entao, substituir a 
linha 30 por: 

30 LET 0=S 

e acrescente a linha 35 da seguinte maneira: 
35 PRINT 3*fl 

Execute enteo o programa assim modificado. Tente 
explicar o que ocorre. 



10 LET R=5 

30 PRINT ft 

25 PRINT "R=";R 

30 LET R=3 

35HPRINT 3*fl 

4-0 RUN 30 



5 

n=s 

2d. 

24 
24. 
24- 
24 
24- 
24- 
24 
24 
24. 
24- 
24 
24 
24- 
24- 
24- 
24. 
24 
24- 
24- 



Da mesma forma, a instrucao LIST, mostra o progra- 
ma na tela a partir da primeira linha; experimente or- 
denar: 

LIST 233 

e NEW LINE. Observe que computador mostra o seu 
programa na tela a partir da linha 25. 



25BPRINT "fi=";fl 
30 LET R=S 
35 PRINT 3#fi 
40 RUN 30 



Acrescente ao seu programa agora, 2 finhas: 



22 PRINT 
27 PRINT 



de tal maneira que ele fique: 



10 LET ft=5 

20 PRINT ft 

22 PRINT 

25 PRINT "R=";R 

27 PRINT 

30 LET R=S 

3S PRINT 3*R 

4-0 RUN 30 
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e mande agora executar o seu programa (RUN e NEW 
LINE). Voce ira obter uma linha em branco, entre o nu- 
mero 5 e a letra A, e, entre a tetra A e o primeiro nume- 
ro 24, pois, de fato, voce ordenou que ele IMAO escreves- 
se nada. 

Dessa forma, voce conseguiu fazer com que ele 
"pulasse" linhas. 

Cabe aqui urn comentario com reiacao a instrucao 
CLEAR: e!a apenas limpa as VARlAVEIS do compu- 
tador, De fato, experimente ordenar CLEAR (e NEW 
LINE) e, a seguir faca LIST. Voce pode observer que seu 
programa ainda esta la. Se voce desejar.'limpar" (apa- 
gar) uma linha de programa, basta colocar o numero da 
linha, seguido de NEW LINE; experimente escrever 40 e 
NEW LINE A linha 40 ira desaparecer. Se voce quiser 
apagar TODO PROGRAMA e TODAS AS VARlA- 
VEIS, basia executar o seguinte comando: 

NEW (tecla A) 

e NEW LINE. Experimente "listar" o seu programa; na- 
da aparecera na tela, ele "esqueceu" tudo. . . Portanto, 
cuidado com esta instrucao; ela e EXTREMAMENTE 
PERIGOSA. 

Para finalizar, vamos aprender mais um cursor: trata- 
se do cursor (GRAPHICS) eujo acesso e feito pres- 
sionando SHIFT e a tecla 9. Observe, por exemplo, a te- 
cla T: 




Se o cursor estiver em , ao pressiona-la, voce 
obtem RAND na tela; com o cursor H , voce tera T, ou 
< > se pressionar simultaneamente o SHIFT; com o 
cursor em B , voce obtem RND; agora, com o cursor 
em ao pressiona-la, voce tera a letra T em vi'deo re- 
verso, ou, o desenho B , se pressionar simultanea- 
mente o SHIFT. Fagamos entao o seguinte programa: 



10 PRINT 
20 RUN 

Note que, apos abrir as aspas, devemos colocar o cur- 
sor em (§1 e, simultaneamente com SHIFT, apertar as 
teclas T, H, 7, F e 8. Para fechar as aspas, devemos pas- 
sar novamente o cursor para H ; para isto, basta fazer 
SHIFT e a tecla 9 (GRAPHICS). Execute entao o pro- 
grama. A seguir, modifique a linha 10 acrescentando um 
!;) no final; 



10 PRINT 

20 RUN 



Execute o programa e perceba o efeito "ESTRA- 
NHO" do (;) ou seja: faca com que o proximo PRINT 
escreva "ao lado" e nao na linha de baixo. Maisadiante 
veremos alguns detalhes a respeito do (;). 




Exerci'cio: 

1) Faca um programa que associe avariavel HOPE a nu- 
mero 6 (na memorial usando a instrucao LET e, a se- 
guir, escreva na tela o seguinte: 



HOPE = B 
HOPE +2=8 
3*HOPE = xe 
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Para que possamos en tender o que e a linguagem de 
maquina, sao necessarios alguns conceitos basicos funda- 
mentals: 

a) numeros binariose hexadecimais 

b) bit e byte 

Alem deles, para utilizar o ASSEMBLY com o TK, e 
precise um bom conhecimento do "funcionamento" da 
key-word POKE e da funcao PEEK. 

objetivo desta primeira aula e 'portanto' abordar es- 
tes t6picos e apresentar alguns exercicios cuja resposta 
sera publicada no proximo numero. 



2) "Apague" o programa anterior (NEW) e, a seguir, faca 
a seguinte instru'eao (nao numerada): LET B = 10 
(NEW LINE). Escreva entao este programa: 



100|»_ET R=5 
200 PRINT H 
306 PRINT B 



Note o que aparece na tela ao tentar executa-lo. Ex- 
plique o que ocorre e a seguir aerescente a linha 150: 
150 CLEAR; tente entao, executar o programa e expli- 
car o que acontece. Substitua entao a linha 150 por: 
150 LET B = 7 e execute o programa. Finalmente, 
aerescente a linha 400:400 NEW 

Execute o programa e tente lista-lo em seguida. Expli- 
que o que ocorre. $ 



"Numeros Dinar ios e hexadecimais" 

A maneira pela qual nos estamos acostumados a re- 
presentee os numeros, usa dez simbolosdiferentes (a sa- 
ber: 0, 1, 2, 3, 4, 5, 6, 7, 8 e 9) chamados algarismos, 
sendo que cada algarismo tern "peso" tanto maior quan- 
to mais a esquerda ele estiver na representacao do nu- 
mero. A relagao entre o "peso" de algarismos adjacentes 
e sempre 10 ; assim, por exemplo: 

posicpao 
1983 = 1 X 10 3 + 9 X 10 2 = 8 X 10 1 + 3 X 10* 



algarismos 



posigao: 3 I 2 I 1 I 

peso: 10 a 1 10 2 I 10 l I 10» 



MICROHOBBY3 



CURSO DE A SSEMBL Y 
LINGUAGEM DE MAQUINA 



Continuagao. 



Por estas raz5es, dizemos que os numeros estao repre- 
sentados na base 10. Diz a hist6ria que isso se deve ao 
fato do ser humano ter 10 dedos nas maos . . . 

Obviamente, qualquer base poderia ter sido escolhida 
e quaisquer si'mbolos poderiam ter sido adotados; imagi- 
ne, por exemplo, um marciano com 8 dedos em cada 
mao . . . ou um venusiano com um dedo apenas em cada 
mao . . . Apesar dos computadores nao serem feitos em 
Marts ou Venus, e conveniente representar os numeros 
na base 2 (numeros binarios) e na base 16 (numeros he- 
xadecimais) quando pensamos em trabalhar em lingua- 
gem de maquina, por razoes que veremos mais adiante; 
assim, na base 2 necessitamos 2 si'mbolos para represen- 
tar os numeros e na base 16 sao neeessarios 16 (vide ta- 
bela 1.1) a relacao entre o peso de 2 algarismos adjacen- 
tes sera respectivamente 2 e 16 

Tabela 1.1 - Si'mbolos usados para representar numeros 
binarios (base 2), decimais (base 10) e hexadecimais (ba- 
se 16), e utilizagao dos si'mboios da base 2 e base 10 pa- 
ra representar os si'mbolos da base 1 6. 



BASE 



2ou B 



10 



11 



100 



101 



113 



111 



1(300 



1001 



1010 



1011 



1100 



1101 



1110 



1111 



10 ou D 



10 



11 



12 



13 



14 



15 



16ou H 



Note que na base 16 somos obrigadosa utilizar letras 
para os ultimos 6 si'mbolos, pois n6s seres humanos 
temos apenas 10 si'mbolos numericos (0, 1 9). As- 
sim, nos numeros hexadecimais, as letras A, B, C, D, E e 
F representam com um unico si'mbolo os numeros 10, 
11, 12, 13, 14e 15dabase 10. 

Obs.: para evitar confusao, colocaremos os numeros en- 
tre parenteses com a base utilizada em baixo a direita: 

(numero) base 

Por exemplo, vamos escrever 2 numeros na base 2 (ou 
B) e 2 numeros na base 16 (ou H) e sua respectiva repre- 
sentacao na base 10 (ou D): 

(1101) 2 = 1 x2 3 + 1 x2 2 +0 x2' +1 x2° = |13)i9 

posicao: 3/2/1/0 

peso; 2 3 /2 2 /2' /2 fl 

(1000 1010)b = 1 x 2 7 + x 2 6 + x 2" 

+ x 2 4 + 1 x 2 3 + x 2 2 
+ 1 x2' +0 x2" = (138) D 

posicao: 7/6/5/4/3/2/1/0 

peso : 2 7 /2 6 /2 s /2 4 /2 3 /2 2 /2 1 /2° 



10 



(132li6 = 1 x 16 2 +3x 16' +2x 16* = (306) 

posicao: 2/1/0 

peso: 16V16' /16» 

(A7) H = 10 x 16' +7x 16" = (167) D 
(A) 



posicao: 1/0 
peso: 16'/16 B 

Note que no ultimo exemplo o si'mbolo A foi substi- 
tui'do pelo numero 1 para que pudessemos fazer a con- 
ta de modo "convencional" e obter o numero (A7) H na 
base 10. mesmo ocorre para B, C, D, E e F que foram 
usados na base 16 para poder representar com um unico 
si'mbolo os numeros de 10 a 15 que sao representados 
com dois si'mbolos na base 10 

Assim, vimos como "passar" numeros representados 
na base 2 e na base 1 6 para a base 1 . Para passar da ba- 
se 2 para a 16 ou vice-versa o procedimento e bem sim- 
ples pois 16= 2 4 . 

Desse modo, dado um numero na base 2, para obter 
sua representacao em hexadecimal, basta agrupar os al- 
garismos em grupos de 4 a partir da direita e substituf- 
los pelo correspondents algarismo na base 16. Voce sa- 
beria explicar por que? 
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(101001001101100) B = (526 C) H 

5 2 6 C 



(11 1101 0111 1111) 2 = (3D7F) 16 
3 D 



Obs.: veja a tabela 1,1. 

Vice versa, dado um numero na base 16, para obter 
sua representacao em binario, basta substituir cada alga- 
rismo pela sua correspondents representagao em base 2. 
Note que sao sempre necessarios 4 algarismos da base 2 
para cada si'mbolo da base 16 sendo que os "espacos"de- 
vem ser preenchidos com zeros a esquerda: 

(3BF) 16 = (11 1011 1111) 2 

3 B F 

(A482> H - (1010 0100 1000 0010)b 

A 4 8 2 

Para completar "ciclo" das transformacoes de bases, 
resta 3penas aprender a passar numeros da base 10 para 
as bases 2 e 16. Via de regra, seguinte algoritmo pode 
ser utilizado para passar numeros na base 10 paraqual- 
quer base X: {tenteexplicar por que). 

a) divida numero dado por X, anote resto e resut- 
tado 

b) divida o resultado por X e anote resto e o novo re- 
sultado 

c) repita a operapao (b) ate" resultado obtido ser zero 
(obviamente se resultado do passo (a) for zero nao sao 
necessaries os passes (b) e (c) ). 

djcopie os "restos" sequencialmente comecando pelo 
ultimo. 

Exemplo: 

Vamos passar alguns numeros na base 10 para a base 2: 



(35 


)io - 


• (?) 


2 








35 


12 












1 


17 
1 


12 
8 



12 
4 




12 
2 



|2 
1 


|2 



1 



t35)i8 = (100011)2 



(92) = (?) B 




92 \2 




46 |2 




23 |2 




1 11 


12 


1 


5 \2_ 




1 2 |2 




\ 1 |2 




X 1 (92) D = (101 11001b 


e da base 10 para i 


i base 16: 


(88) 10 = (?) 16 




88 |16 




8 5 |16 




5 


(88) 10 = (58)i 6 


(216) D = (?) H 




216 [16 




56 13 [16 




8 13 


(216) D = (D 8 ) H 



(Lembre-se que (13) 10 = (D) 10 : veja tabela 1.1) 
Obs.: Note a conveniencia de se agrupar os algarismos 
dos numeros binarios de 4 em 4 para facilitar a com- 
preensao, assim como fazemos para os numeros decimals 

(de 3 em 3). 



Exercfcios: 

1 ) Efetue as seguintes conversoes: 
a) (10 1101) B = (?) D 
b)(1010) io = (?) 16 
c) (A2F) H = <?> B 
d)(380) 16 = (?) 1B 

e) (101 0010 1011) 2 = (?) 16 

f) (111 0110) 2 = t?), B 

g) (A10F] H = (?)„ 

hl(10 1110 0110 1100) B = (?) H 
i) (ACF2) 1S = (?) 2 
i) (127) 19 = (?) 2 
k)(999) D = (?) H 
I) (110) D = (?) B 



Sugestao para uma tarde de verao: Algum tempo atras 
era bastante usada tamb^m a base 8 (numeros octais); 
tente imaginar numeros representados nesta base e como 
transforma-los para as bases que aprendemos hoje e vice- 
versa (note que 8 = 2 3 ); a seguir faca mesmo para uma 
base que nao seja potencia de 2 (ex. 5). 



MlCftOHOBBY 33 



CURSO DE ASSEMBLY 
LINGUAGEM DE MAQUINA 

Continua?ao... 



Sugestao para 5 tardes de verao: Experimente imaginar 
numeros na base 12 e fazer contas com eles: soma, sub- 
tracao, multiplicacao, divisao . . . Verifique que certas 
contas de divisao que dao di'zima na base 10 nao dao df- 
zinna na base 12; ex.; 4/3= 1,333 . . . (base 10), 
4/3= 1,4 (base 12) 

"Bit/Byte: circuitos eletronicos de dois estados" 

A evoiucao da eletronica tornou possi'vei a elabora- 
q§o de circuitos extremamente pequenos capazes de as- 
sumir 2 estados estaveis, sinalizados pela presence ou 
nao de tensao eletrica; para efeito de representacao, es- 
tes estados sao simbolizados respect ivamente por 1 e 0, 
razao pela qual torna-se necessario representar os nume- 
ros na base 2 se quisermos interpreter como numeros os 
estados dos circuitos. Os computadores sao constitui'dos 
em sua grande parte por "milhares" destes circuitos inte- 
ligentemente ligados. 

Na linguagem "usual", cada algarismo ou 1 e cha- 
mado de "bit" e a urn conjunto de 8 bits chamamos 
"byte". Os numeros hexadecimais foram introduzidos 
para facilitar a escrita e compreensao de numeros bina- 
rios, substituindo longas cadeias de zeros e uns, pelos 
correspondentes sfmbolos hexadecimais, reduzindo as- 
sim, 4 vezes seu tamanho e facilitando o entendimento 
do ponto de vista humano 

Assim, se tivermos 8 circuitos iguais ao mencionado 
anteriormente, poderemos representar 256 numeros 
(2 s ) correspondendo a todas as combinacoes possi'veis 
de zeros e uns: 



0000 0000" 





'0' 


0000 0001" 


1 


'1' 


0000 0010" 


2 


'2' 


0000 0011" 


3 


■3' 



1111 1100" 


252 




'FC* 


1111 1101" 


253 




•FD' 


1111 1110" 


254 




'FE' 


1111 1111" 


255 




TF' 


(binaries) 


(decimais) 


(hexadecimais 



Assim, utilizando 1 byte (8 bits) podemos representar 
os numeros inteiros positives de a 255 , . , 

Se usassemos 16 bits (ou seja 2 bytes), poden'amos re- 
presentar 2 1 6 numeros a saber de a 65535. Esta regra 
e analoga a base dez; de fato, com 2 algarismos podere- 
mos representar 10* numeros (0 a 99). 



Note que introduzimos aqui uma nova simbologia pa- 
ra diferenciar as bases nas quais estao representados os 
numeros: os binarios entre aspas ("), os hexadecimais 
entre ap6strofos (') e os decimais sem "nada"; esta sim- 
bologia e a que serd adotada para todas as outras aulas. 

Como veremos no decorrer do curso, serao mutto in 
teressantes para n6s os numeros de 1 byte (8 bits) e 2 
bytes (16 bits). Assim como nos numeros decimais onde 
existe o conceito de "algarismo mais significative". 

Por exemplo o numero hexadecimal: 



1 byte 



1 byte 

A 



'1A2C'= "0001 1010 0010 1100" 



1 



A 



tern como byte mais significativo '1 A' e como byte me- 
nos significativo '2C\ Este numero poderia ser assim re- 
presentado em decimal: 

'1A2C'= 1 x16 3 + 10 x16* +2x 16 1 + 12 x 16 g = 6700 

(A) (C) 

Poden'amos porem, calcula-lo de outra forma: 

byte mais significativo: '1 A' = 1 x 16 1 +10 x 16' = 26 
byte menos significativo: '2C'= 2x 16' + 12 x 16° = 44 

e calcular: 

(byte mais significativo) x 256' +(byte menos 
significativo) x 256* = 26 x 256' + 44 x 256° = 6700 

Como se estivessemos utilizando uma base "fictfeia" 
de 256 (= 16 3 ). Para entender melhor, suponha por 
exemplo o numero 1024 em decimal, ele equivale a; 

1 x 10 3 +0 x 10 1 +2x 10' +4x 10° 

Se "dividirmos" o numero ao meio [10 24] podere- 
mos usar uma base ficti'cia de 10 2 = 100; de fato; 

10 x 100 1 +24x 100" = 1024 

Nao se trata de coincidencia. E logica . . 

Medite um pouco sobre estes conceitos. Eles serao 
uteis e necessarios para entender a linguagem de maqui- 
na, . . 

Para facilitar as coisas, apresentamos aqui uma tabela 
dos primeiros 256 numeros hexadecimais e decimais pa- 
ra conversao, ou seja, todos os numeros possi'veis de se- 
rem representados com 1 byte e que, portanto, tern dois 
dig it os hexadecimais. 
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CHEGA 

DE 
PROBLEMAS 

Use Tig Loader 




TIG-LOADER possibilila: 
•a localizacSo do 6iimo volume do gravador, atraves de 2 Li Ds indicadoras, facilitartdo a opera^fe LOAD. 
•DUPLICAR qualquer programs, usando outro gravador, conwguindo dupticacoes perfeitas. 
•carragar (LOAD) e DUPLICAR simu Itaneamente, 
•gravar (SAVE) am 2 gravadores ao mesmo tempo. 

•monilorar as operacSes LOAD, SAVE ou DUPLICACAO atravis da fone. Mm manipular fios, plugs ou o controle de volume, 
•filirar as interferencias el«rrica$ de baixa frequ*ncta, que sab a causa da maioria dos problems* de LOAD/SAVE. 

TIG-LOADER e pequeno 18x5* 2,5cm I a nab requer modificacSes no microcompulador. nem bloqueia a axpansSo de memoria, 
porque a ligado entre as lomadas gravador/ microcomputador. 




Para adquirir, envie o cupom abaixo, completamente 
preenchido, mais urn cheque nominal, pagavel 
em Sao Paulo, e voc& recebera - o seu TIG- 
LOADER pelo Correio. 

TIGRE COM.DE EQUIP.P/COMPUTADORES LTDA. 
Rua Correia Galvflo , 224 
CEP 01547 -Sfo Paulo - SP 



ATENDEMOS SOMENTE POR CARTA 



Seja Cliente Preferencial; envie o cupom preenchido e voce recebera descorcto em todos os nossos 
produtos (a relacao dos futuros langamentos e enorme ! ). 



QsiM, deiejo receber_ 
CR$. 



aparelhos TIG-LOADER, para o que sstou anaxando o cheque n? 



no valor de . 



□ Ouarosar CLIENTE PREFERENCIAL e raceber descontos nas minhas futures compras. 



NOME 

ENDEREQO. 
CEP 



.CIOADE. 



PROFISSAO 

MICROCOMPUTADOR 



.ESTADO 

.DATANASC,. 



Prazo de entrega: 15 diss. ■ DESPESAS POSTAIS POR CONTA DO COMPRADOR 
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« 


1 


2 


3 


4 


5 


6 


7 


8 


9 


A 


B 


C 


O 


E 


F 


a 





1 


:"•' 


3 


4 


5 


6 


7 


6 


9 


HI 


11 


12 


13 


14 


15 


r 


16 


17 


IB 


19 


28 


21 


22 


23 


24 


25 


26 


27 


28 


29 


30 31 


i 


32 


33 


34 


36 


36 


37 


36 


39 


40 


41 


42 


43 


44 


46 


46 47 


3 


48 


49 


60 


61 


52 


53 


54 


55 


B6 


B7 


58 


59 


60 


61 


62 


63 


4 


64 


66 


66 


67 


66 


69 


70 


71 


72 


73 


74 


75 


76 


77 


78 


79 


5 


80 


81 


82 


83 


84 


85 


86 


87 


88 


89 


90 


91 


92 


93 


94 


95 


6 


96 


97 


98 


99 


1H 


1191 


103 


193 


194 


195 


196 


107 


108 


109 


110 


111 


7 


112 


113 


114 


116 


116 


11? 


118 


119 


1 20 


121 


122 


123 


124 


125 


126 


127 


B 


128 


129 


139 


131 


132 


133 


134 


135 


1 36 


137 


138 139 


140 


141 


142 


143 


» 


144 


146 


146 


14? 


148 


149 


159 


151 


152 


153 


154 155 


156 


1B7 


1 58 1 59 


A 


160 


161 


162 


163 


164 


IBS 


166 


167 


168 


169 


179 


171 


172 


173 


174 1176 

! 


B 


176 


177 


176 


170 


130 


181 


182 


183 


184 


185 


186 


187 


IBS 


189 


190 


191 


C 


192 


193 


194 


196 


196 


197 


198 


199 


290 


291 


30? 


203 


204 


205 


206 


207 


D 


203 


2(19 


210 


211 


312 


213 


214 


215 


216 


217 


218 


219 


220 


221 


222 


223 


e 


224 


225 


226 


227 


228 


229 


239 


231 


232 


233 


234 


235 


236 


237 


238 


239 


F 


249 


241 


242 


243 


244 


245 


246 


247 


248 


249 


250 


251 


252 


253 


254 


255 



Assim, por exemplo, linha 5, coluna A, teremos: 

'5A' = 90 (de fato 5 x 16 1 + 10 x 16° = 90) 

Vice-versa, 247 corresponde a linha F, coluna 7, ou 
seja: 

247= 'F7' 

"O que 6 POKE? O que e PEEK?" 

Coma veremos, a memoria do TK pode, com expan- 
sao de 64K, ter 65536 "casinhas" (posigoes) numeradas 
de a 65535, cads uma capaz dearmazenar 1 byte, ou 
seja, urn numero compreendido entre e 255 ('00' e 
'FF'); a instrucao POKE coloca um numero (de a 
255) na memoria desejada; por exemplo 

POKE 30000, 135 

coloca o numero 135 na memoria 30000. A funcao 
PEEK nos "conta" qual o numero que esta em dada me- 
moria; por exemplo: 

PRINT PEEK 30000 



escreve na tela o que esta na memoria 30000 Lembre- 
se, os enderecos s6 vao de a 65535 e o numero maxi- 
rno que cabe em uma memoria e 255. Assim, para colo- 
car na memoria um numero maior que 255 deveremos 
"quebra-lo" em varias partes usando a base 256 (16 s ), 
pois ele nao cabe em apenas uma posicao. Se ele for me- 
nor do que 65536 (256 2 ) devemos "quebra-lo" em 
dois; se o numero for maior que 65536 e menor do que 
16777216 (256 3 ), deveremos quebra-lo em 3 e assim 
por diante 



Suponha, por exemplo, que voce queira colocar o nu- 
mero 522 nas memorias 30000 e 30001; ora, 522 = 
■02' = 2 
'0A' = 10 



'020A' 



Vamos colocar o byte menos significative) na memoria 
de menor endereco: 



POKE 30000,10 
POKE 30001,2 



Para obte-lo de volta, basta fazer: 



PRINT PEEK 30000 + 256 x PEEK 30001 



Experimente agora colocar na memoria o numero 
32477 e obte-lo de volta (use os mesmos enderecos). 

Faca o rnesrno para o numero 65535, , , E, se voce es- 
liver inspirado, tente colocar os numeros 100.000 e 
20.000.000 na memoria. 
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VERDADEIRO 

OU 
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MENSA 

International 



•¥• 




A partir deste numero, inauguramos a seguinte siste- 
matica para resposta do quebra-cabeca: ele sera respon- 
dido sempre no segundo numero apos sua publicacao. 
Isto significa que o quebra-cabeca proposto no numero 
1 tera sua resposta publicada no numero 3. Este que es- 
tamos propondo agora no numero 2, sera respond ido 
no numero 4 e assim sucessivamente. Neste numero 2 
comecamos tarnbem a con tar com a colaboracao dos 
membros da MENSA residentes no BRASI L, 

quebra-cabeca que vamos propor agora e de autoria 
de JimGeschwender e foi publtcado na segao GAMES da 
revista americana OMNI no mes de maio de 1983 (res- 
posta na pagina 148). Neste momento alguns leitores se 
perguntarao: "Mas, qual e a graca? 

Basta achar esta revista e procurar a resposta!" Poise 
nesse ponto que eles van ficar surpresos: o quebra-cabe- 
ca deste mes nao consiste em achar a resposta. Vamos 
entao ao quebra-cabepa e depois dizemos o que preten- 
demos: 

A lista a seguir contem 10 assercoes que podem ser 
verdadeiras (V) ou falsas (F), 

Assinale V ou F em todas elas de maneira que suas 
respostas satisfacam simultaneamente todos os ftens 
da lista sem contradicoes: 

1. ( ) A quarta assercao falsa tern numeracao fmpar. 

2. ( ) Ha" mais assercoes falsas entre as primeiras seis 

(de 1 a 6) que entre as ultimas 7 (de 4 a 10). 

3. ( ) Existem pelo menos 5 assercoes falsas. 

4. ( ) Existem tres assercoes verdadeiras consecutivas. 

5. ( ) Existem peio menos tantas assercoes verdadei- 

ras com numeracao par, quantas assercoes fal- 
sas com numeracao fmpar. 

6. ( ) As assercoes 7 e 10 sao, ou ambas falsas, ou 

ambas verdadeiras. 



9.( 
10. ( 



Das tres ultimas assercoes com numeracao par 

(6, 8 e 1 0} apenas uma e verdadeira. 

As assergoes 6 e 9 podem ser verdadeiras so- 

mente se a assercao 10 for falsa. 

A assercao 7 e a primeira assercao verdadeira 

com numeracao par sao precedidas imediata- 

mente por assercoes verdadeiras, 

A assercao 9 e falsa. 



Agora voce vai quebrar a cabeca tentando achar a res- 
posta ou, se for preguicoso, vai procur^-la na revista OMN I . 

Mas, o que queremos realmente que voce facae "bo- 
lar" urn programa em BASIC — TK que faca seu compu- 
tador achar a resposta. 

Lembre-se de que existem no BASIC funcoes e instru- 
coes extremamente poderosas do ponto de vista logico; 
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IF THEN 

OR 

AND 

NOT 

Alem disso, seu TK tern a seguinte capacidade: qual- 
quer 3ssercao entre parenteses, se for verdadeira a ela 
atribuimoso valor 1, se for falsa 0. Experimente digitar: 

PRINT (2= 2) 



PRINT (47 > 51) 

e veja o que seu TK responde em cada caso. 

Agora, maos a obra e envie-nos o programs {veja se- 
cao "Como colaborar com MICROHOBBY") a tempo, 
para que possamos eventualmente publica-lo no numero 
4, Boa sorte e bom divertimento. 



LANCAMENTO 



LIVRO: APLICAQOES SERIAS PARA TK82-C 

No momento em que estavamos fechando esta edicao, 
chegou as nossas maos um exemplar do livro 

APLICAQOES SERIAS PARA TK82-C E CP200 de 
autoria de DELIO SANTOS LIMA. 

Nao tivei ios, portanto, tempo material para fazer 
uma analise detalhada, mas, numa rapida leitura pude- 
mos perceber que este livro contem programas muito trv 
teressantes e algumas "dicas" realmente muito uteis para 
os usuarios dos computadores que usam BASIC-TK. 

Faremos futuramente uma analise cn'tica mais pro- 
funda, assim como de todos os livros referentes ao TK 
que nos forem enviados para resenha, mas por enquanto 
queremos nos congratular com o DELIO por mais esta 
in iciativa pioneira e bem brasileira. 



COMO 

COLABORAR 
COM 
MICROHOBBY 



A revista MICROHOBBY foi criada para servir de in- 
tercambio entre os leitores que participam do magico 
mundo da computacao. 

A caracterfstica realmente inovadora do computador 
pessoal, esta em transformar cada consumidor num cria- 
dor. Aproveite sua criatividade e envie suas colabora- 
coes, recebendo remuneracao a ti'tulo de DIREITO 
AUTORAL 

Se o material enviado for aprovado para publicacao, 
a remuneracao sera de Cr$ 10,000,00 por programa. Se 
o programa for muito bom e muito extenso esta quantia 
sera aumentada, a criterio da redacao, ate Cr$ 30.000,00 
Esta remuneragao sera 1 oferecida tamb^m para artigos 
interessantes sobre o mundo do TK. 

A maneira ideal de nos enviar o material a ser publi- 
cado obedece as seguintes normas: 



1 ) Nunca esquecer de colocar nome completo, endereco 
e numero de sua assinatura em todo material enviado (fi- 
tas, listagens de impressora, envelope, carta, etc). 

2) Enviar a listagem de programa datilografada ou, me- 
Ihor ainda, tirada na impressora do TK. 

3) Colocar sempre uma linha REM com o nome do autor 
e o ti'tulo do programa. 

4) Enviar uma f ita com o programa gravado algumas ve- 
zes (se possi'vei em gravadores diferentes). 

5) Na fita, gravar com microfone (em viva voz), algumas 
instrucoes uteis, nome completo e endereco do reme- 
tente. 

O material nao utilizado nao sera devolvido. Esta e 
uma norma corrente em quase todas as revistas do mun- 
do, que gera por6m, uma certa desconfianca: "e se apa- 
garem meu nome do programa e o pubticarem sem me 
remunerar?" 

Neste ponto podemos sugerir o seguinte: 

Ao enviar o material para qualquer revista, voce, ou 
confia em sua seriedade, ou, e melhor nao enviar o ma- 
terial, reservando-o para uma publicacao di'gna de seu 
credito. 

Uma outra sai'da e a de tirar uma copia de todo ma- 
terial enviado e registra-lo em cartorio, para qualquer 
reclamacao posterior. Obviamente tal procedimento so e 
aconselhavel se o material enviado for valioso a ponto de 
justificar toda essa mao-de-obra. 
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6} material deve ser enviado para: 

MICROMEGAP.M.D. Ltda. 
PROGRAMASDO LEITOR 



1 



Cx. POSTAL; 60081 

CEP: 05096 - S. PAULO - SP 

7) Qualquer duvida, podera" ser esclarecida pelo telefone. 
(01 1 ) 257-5767 
Aguardamos sua colaboracao. 



PEQUENOS 
ANUNCIOS 



Envie seu pequeno anuncio de poucas linhas e ele sera" 
publicado gratuitamente pela MICROHOBBY. 



* Vendo expansao de 16K para NEZ8000, nenhum 
uso, baratissima - Jose Luis - S. Paulo - Fone 
274-5995. 

* SINCLAIR CLUB, para usuariosdoZX81 - NEZ8Q00 

- TK82-C - CP200 - TK85 - Envie uma carta com 
dados pessoaise um programa: Rua Bandeira Paulista, 
147/162 - Itaim Bibi - Sao Paulo - CEP 04532. 

* Troca de ideias e programas para TK - Robson Go- 
mes Vilela - Rua dos Navegantes, 1017/202 - Boa 
Viagem - Recife - PE - CEP 50000. 

* Vendo programas em fita-cassete 2K e 16K para 
TK82 - Carlos Sciarretti — Caixa Postal 5567 - Sao 
Paulo -CEP 01051. 

* Vendo programas em fita K-7 para os micros TK-82, 
NZ-8000, CP-200 e ZX-81. Aos interessados escrever 
para Renato Strauss, R. Cardoso de Almeida, 654 - 
ap. 32 - CEP 0501 3 - Sao Paulo - SP. 

* Curso de linguagem de maquina para TK82 e TK85 
(Assembly Z80). Aos sdbados das 9:00 as 13:00 hs. 

- Sao Paulo - Fone: 813-4555 (Ma>cia) a tarde. 




Gostaria de entrar em contato com radio amadores 
que utilizem micros do tipo Sinclair para decodificar 
CW e RTTY. Aos interessados entrar em contato com 
Renato Strauss, R. Cardoso de Almeida, 654 — ap. 32 
- CEP 05013 - Sao Paulo -SP. Para trocas de ideias 
e experiencias. 




Xadrez 

Divulgagio e 

Empreendimertos Ltda, 



TUDOPARAAPRATICA 
- DO REI DOS JOGOS - 



Xadrez Eietronico 
Tabulelros e pepas 
Mesas e relogios 
Livros e re vistas 
Aulas e Simultanaas 
Organizapao de Torneios 



Av. Brig? Faria Lima, 1644 ■ abl. 61 ■ 01452 ■ Sao Paulo 
Fonaa: (01 1) 814-9340 • 814-9539 



SP 
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COMO FAZER 

SUA 

ASSINATURA 




A nossa revista nao sera distribu ida nas bancas 
Para obter seu exemplar mensal, contendo muitos 
programas para o seu TK, muitas dicas e premios 
nteressanti'ssimos, voce devera fazer umaassinatura: 
o prego anual da assinatura e de Cr$ 1 1 800,00. 
Porem, ate 30 de setembro, manteremos o preco de 
Cr$ 9.900,00, com direito a escolha de um desses dois 
brindes: 

Fita com jogos (Pulga — 2K e Simulador de Voo — 

16 K) no valor de Cr$ 6.900,00. 

TWIN-GO (Desgravador e rejuvenescedor 

instantaneo de fitas cassete) no valor de 

Cr$ 7.800,00 

Para tanto, voce devera preencher corretamente 
o cupom anexo (nao esquecendo de assinalar o brinde 
de sua escolha), e coloca-lo num envelope, junto a um 
cheque nominal ou vale postal a favor de MICROMEGA 
PUBLICAC0ES E MATERIAL DIDATICO LTDA., no 
valor de Cr$ 9.900,00 (oferta valida ate 30 de 
setembro). 

O envelope devera ser selado e enderecado a 

MICROMEGA P.M.D. LTDA. 
Caixa Postal 60081 - CEP 05096 
Sao Paulo - SP 



OLHE SO O QUE ESTA RESERVADO 
PARA O N.° 3 




PROGRAMAS DO LEITOR: 

Muitos programas interessant fssimos bolados ou 
adaptados por nossos leitores, inclusive aplicativos serios. 

PROGRAMAS DO MES: 

Um gigantesco programa de arquivo. 

O programa "LIFE" em linguagem de maquina. 

DICAS: 

Aritmetica financeira. 

Como preparar uma linha REM para codigo de maquina. 

Como encher a tela mstantaneamente. 

CURSOS: 

Continuacao do Curso Basic TK e do Assembly Z80do 

TK. 

PEQUENOSANllNCIOS: 

Para esta secao voce podera enviar um pequeno anunclo 
para publicacao gratuita. 

FITA DOMES: 

As instrucoes e as dicas do Simulador de V6o. 



L 
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PREPARE-SE PARA O 







lAMi 

> 




No NUCLEO voce pode se inscrever escolhendo as materias, dependendo de suas reais necessidades, 
aproveitando ao maximo seu tempo. 

Se o seu problems e MATEMATICA, FISICA, QUIMICA, BIOLOGIA, GRAMATICA, REDAQAO, FRANCES, 
ETC., temos os melhores professores dos melhores cursinhos de Sao Paulo, para Ihe dar urn 
atendimento INDIVIDUAUZADO. 





} 




Informagoes e inscribes 
para turmas de /YtYi 




1 



Nucleo 

flei orientacao 
/de jestudos 



Av. Brig. Faria Lima, 1451 - 3? ■ Cj. 31 
Tel.: 813-4555 - CEP 01451 - Sao Paulo - SP 






Desgravador e rejuvenescedor instantaneo 



de fitas K-7 





micromega 



Sire™. PASSOU... DESGRAVOU 
GARANTIA DE 5 ANOS 



rwin'tio 

Desgrava e rejuvenesce em apenas 4 segundos, qual- 
quer fita cassete independente de sua duracao, eliminan- 
do todos os ruidos e chiados decorrentes de frequentes 
regravacoes. 

Poupa o desgaste da fita e da gravador. 
Poupa tempo e meihora a qualidade do som da fita casse- 
te na reutilizacao da mesma. 

Gravando em cima de outra gravacSo, a qualidade da re- 
producao e consideravelmente prejudicada, alem de criar 
confusoes, principalmente se a gravacao anterior for de 
duracao ma ircuna. Desgravando com o TWIN-GO, nada 
disso acontece. 

TWIN-GO e indispensavel a todos os profissionais e 
amadores, usuanos de fitas cassete. 



Pedidos por carta 

MICROMEGA PMD LTDA. 

Colxo Postal 60081 • CEP 05096 - Sao Paulo- SP 

onexondo Cheque Nominal ou Vole Postal, 
incluirtdo rnois despesas de frete no valor 
deCr$ 500,00, outorizando o re«btmeri to 
da compra no pro/o de IS dtos. 
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